puoi anke fare così:

codice:
dim parola as string = tuaparola
for each c as char in parola
'qui leggi il carattere c e lo cripti come vuoi....
next