Originariamente inviato da oregon
Veramente il codice che hai postato non funziona ... e non capisco cosa tu voglia fare ...
Hai ragione per la fretta avevo sbagliato.
Comunque riposto il codice:

Dim parola As String
Dim parol As String
Dim i, n As Integer
parola = Text1.Text
n = Len(parola)
For i = 1 To n
parol = parol & Asc(Mid(parola, i, 1))
Text2.Text = parol
Next i



65=A
77=M
79=O
82=R
69=E

Il mio problema sarebbe quello di ottenere la funzione inversa e cioè se digito
6577798269, vorrei ottenere la parola AMORE.