lung=len(stringacaratteri)

for i=1 to lung
if mid(stringacaratteri,i,1)=" " then
else
nr=asc(mid(stringacaratteri,i,1))
endif
next i