Mira de esta manera:
Crea dos campos de texto "text1, text2" y pon este code.
Código:
Dim x, y
Private Sub Text1_Change()
If Len(Text1) = 0 Then
Text2 = ""
Exit Sub
End If
If x <= Len(Text1) Then
Text2 = Text2 & Asc(Right(Text1, 1))
Text1.Tag = Text1
Else
Text2 = ""
y = 0
Do
y = y + 1
Text2 = Text2 & Asc(Mid(Text1, y, 1))
Loop Until y >= Len(Text1)
End If
x = Len(Text1)
End Sub
habrán mejores maneras pero asi a vote pronto se me ocurre esta.
Un saludo.