Hi George,
>>
>
>>PROCEDURE ReverseIt
>> PARA cText
>> cReversed=""
>> FOR I = LEN(cText) TO 1 STEP -1
>> cReversed=cReversed+SUBS(cText,i,1)
>> ENDFOR
>> RETURN cReversed
>>ENDPROC
>Or..

FUNCTION ReverseIt
>  LPARAMETER cText
>
>  LOCAL lcresult, lni, lnlast
>  lnlast = LEN(cText)
>  lcresult = ""
>  FOR lni = 1 TO lnlast
>   lcresult = SUBSTR(cText, lni, 1) + lcresult
>  NEXT
>  RETURN lcresult
>ENDFUNC

From Steve Black's "Text" session at DevConnections, John's would be more efficient. Some VFP optimization on StrVar = StrVar + ...