FoxPro/Visual FoxPro - un text que acepte num y letras

hola como estan tengo un pequeño problema necesito crear un codigo que si en un text escribo una cadena asi por eejmplo wndh1234 me devuelva en otro text wndhunodostrecuatro

Aca esta Marco:
vletra = ''
DO pregunta WITH '00P569Z691Y7 '
wait wind vletra time 3
*
PROCE pregunta
LPARA buscar
FOR I = 1 TO 12
IF ISDIG(SUBS(buscar,I,1))
DO es_numero WITH SUBS(buscar,I,1)
ELSE
DO es_letra WITH SUBS(buscar,I,1)
ENDIF
ENDFOR
ENDPRO
*
PROCEDURE es_numero
LPARAMETERS vcodigo
IF vcodigo = '0'
vletra = vletra + 'Cero '
ENDIF
IF vcodigo = '1'
vletra = vletra + 'Uno '
ENDIF
IF vcodigo = '2'
vletra = vletra + 'Dos '
ENDIF
IF vcodigo = '3'
vletra = vletra + 'Tres '
ENDIF
IF vcodigo = '4'
vletra = vletra + 'Cuatro '
ENDIF
IF vcodigo = '5'
vletra = vletra + 'Cinco '
ENDIF
IF vcodigo = '6'
vletra = vletra + 'Seis '
ENDIF
IF vcodigo = '7'
vletra = vletra + 'Siete '
ENDIF
IF vcodigo = '8'
vletra = vletra + 'Ocho '
ENDIF
IF vcodigo = '9'
vletra = vletra + 'Nueve '
ENDIF
*
PROCEDURE es_letra
LPARAMETERS vcodigo
IF vcodigo = 'A'
vletra = vletra + 'A '
ENDIF
IF vcodigo = 'B'
vletra = vletra + 'B '
ENDIF
IF vcodigo = 'C'
vletra = vletra + 'C '
ENDIF
IF vcodigo = 'D'
vletra = vletra + 'D '
ENDIF
IF vcodigo = 'F'
vletra = vletra + 'F '
ENDIF
IF vcodigo = 'G'
vletra = vletra + 'G '
ENDIF
IF vcodigo = 'H'
vletra = vletra + 'H '
ENDIF
IF vcodigo = 'I'
vletra = vletra + 'I '
ENDIF
IF vcodigo = 'J'
vletra = vletra + 'J '
ENDIF
IF vcodigo = 'K'
vletra = vletra + 'K '
ENDIF
IF vcodigo = 'M'
vletra = vletra + 'M '
ENDIF
IF vcodigo = 'N'
vletra = vletra + 'N '
ENDIF
IF vcodigo = 'O'
vletra = vletra + 'O '
ENDIF
IF vcodigo = 'P'
vletra = vletra + 'P '
ENDIF
IF vcodigo = 'Q'
vletra = vletra + 'Q '
ENDIF
IF vcodigo = 'R'
vletra = vletra + 'R '
ENDIF
IF vcodigo = 'S'
vletra = vletra + 'S '
ENDIF
IF vcodigo = 'T'
vletra = vletra + 'T '
ENDIF
IF vcodigo = 'U'
vletra = vletra + 'U '
ENDIF
IF vcodigo = 'V'
vletra = vletra + 'V '
ENDIF
IF vcodigo = 'W'
vletra = vletra + 'W '
ENDIF
IF vcodigo = 'X'
vletra = vletra + 'X '
ENDIF
IF vcodigo = 'Y'
vletra = vletra + 'Y '
ENDIF
IF vcodigo = 'Z'
vletra = vletra + 'Z '
ENDIF

Hola. Te paso el código del evento click de un botón que hace lo que necesitas.

* Evento clic de un commandbutton

DIMENSION aNumeros(10)

aNumeros(1) = "cero"
aNumeros(2) = "uno"
aNumeros(3) = "dos"
aNumeros(4) = "tres"
aNumeros(5) = "cuatro"
aNumeros(6) = "cinco"
aNumeros(7) = "seis"
aNumeros(8) = "siete"
aNumeros(9) = "ocho"
aNumeros(10) = "nueve"

cCadena = ""

FOR nI = 1 TO LEN( ThisForm.Text1.Value )

...cCar = SUBSTR( ThisForm.Text1.Value , nI, 1 )

...IF ISDIGIT( cCar )
......cCar = aNumeros( VAL( cCar ) + 1 )
...ENDIF

...cCadena = cCadena + cCar

NEXT

ThisForm.Text2.Value = cCadena

Saludos

Javier (Jujuy-Argentina)