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