Como pasar de letras a numeros

[kakinets]

Hola a todos a ver q tal me explico...
esta es mi situasion.....
Tengo un tex llamado Text1 otro llamado Text2 y un boton llamado cmd

Lo q yo quiero es q cundo ponga en el tex1 la letra R y presione el boton pase al Text2 cun el numero 1 y hasi con todas las letras hasta terminar....

PD:seria como un codificasion

gracias a Todos

[programatrix]

No se mi bien lo que quieres hacer pero bueno.

Código [Seleccionar] Expandir

dim r as string
r = "1"
if text1 = "r" then
text2 = r
end if
Creo que es esto lo que quieres hacer mas o menos, no??

[maxnet]

hola
puedes usar el codigo ascii de cada letra

Código [Seleccionar] Expandir



dim a as integer
text2.text=""
for a=1 to len(text1.text)
text2.text=text2.text & asc(mid(text1.text,a,1)) & ""
next a