Visual Basic - Pasar todo un texto a codigo ascii en Visual Basic

Hola Amigo tengo un proble quisiera hacer un keygen para mi software pero necesito saber como puedo hacer para pasar un texto q este en un textbox pasarlo a su numeral de cada letra a ascii como por ejemplo la letra c=99 la e = 101 y asi sucesivamente y al final q me lo almacene en otro textbox pero con todos los numeros juntos mas o menos asi 99101..... desde ya gracias.

Dim str As String, dest As String
Dim ch As String
Dim asci As Integer

dest = ""
str = Text1.Text 'Origen de texto a convertir

For i = 1 To Len(str)
ch = Mid(str, i, 1)
asci = Asc(ch)
dest = dest + CStr(asci)
Next i

Text2.Text = dest 'Destino de la conversión

pero cuidado que como vos lo planteaste no vas a poder saber que números agrupar para recuperar un caracter del resultado. Los códigos ascii tienen valores de 0 a 255, por lo que pueden ser de 1, 2 ó 3 cifras. Tendrías que tomar 3 caracateres como longitud del código de cada ascii (modificar la rutina con format) .Entonces te quedaría ce= 099101.

milagros