'
' StrReverse - Reverse a string
'
' Author: Joe Strazzere
'
Function StrReverse$(StrReverse1$)
Local i
Local work$
i=Len(StrReverse1$)
work$=""
While i > 0
work$=work$+Mid$(StrReverse1$,i,1)
i=i-1
Wend
StrReverse$=work$
EndFunction
msgbox(StrReverse$("123"))
