FoxPro/Visual FoxPro - Cadenas de Texto

Necesito ayuda con un programa en el cual se introduzca Cualquier Caracter en un textbox y al darle a un Command se invierta ese valor

ejemplo:

"Hola" ------>"aloH"

intenta en tu CMD

cadena=""
for i=1 to len(alltrim(textbox))
cadena=cadena+subs(len(alltrim(textbox))+1-i,1,1)
endfor

suerte.

Yo lo haria asi:

texto = "hola" &&Thisform.text1.value
cadena=""
FOR i = LEN(ALLTRIM(texto)) TO 1 STEP -1
cadena=cadena+SUBSTR(texto,i,1)

ENDFOR
? cadena

Mi método tal vez es mas rudimentario, pero funciona

v_cant=LEN(ALLTRIM(thisform.text1.value))
v_cont=-1
v_reves=" "
DO while v_cont <= v_cant
v_reves = v_reves+SUBSTR(thisform.text1.Value,v_cant,1)
v_cant = v_cant-1
v_cont = v_cont + 1
ENDDO
v_reves = v_reves+SUBSTR(thisform.text1.Value,v_cant,1)
thisform.text1.Value = ALLTRIM(v_reves)
thisform.text1.Refresh