Dim OriginStr As String
Dim RevStr As String
Dim NextChar As String
Dim Length As Integer
Dim Pos As Integer
OriginStr = (Me.Text00)
Length = Len(OriginStr)
RevStr = ""
For Pos = Length To 1 Step -1
NextChar = Mid(OriginStr, Pos, 1)
RevStr = RevStr & NextChar
Next Pos
Me.Text01 = RevStr