yo hice algo muy muy parecido, pero convertia el caracter en ascii y despues le sumaba algun valor, entonces siempre me iba a quedar numeros de 3 sifas. despues con el descifrar le restaba el numero a las 3 cifras y lo convertia en caracter. todo eso con un for que iba de 3 en 3...
Aca te dejo uno, pero este no sumba ningun valor,
solo converte el caracterPrivate Sub Command1_Click()
Dim s As String
s = UCase(Text1)
Text2 = ""
For i = 1 To Len(s)
Text2 = Text2 & "0" & Asc(Mid(s, i, 1))
Next
End Sub
Private Sub Command2_Click()
Dim s As String
s = Text2
Text2 = ""
For i = 1 To Len(s) Step 3
Text2 = Text2 & Chr(Val(Mid(s, i, 3)))
Next
End Sub
saludos =)