If you have VB6, use the strReverse function.

Code:
Text1 = StrReverse(Text1)
If not, you can make your own.

Code:
Private Function StrReverse(ByVal sIn As String) As String
    Dim nC As Integer, sOut As String
    For nC = Len(sIn) To 1 Step -1
    sOut = sOut & Mid(sIn, nC, 1)
    Next
    StrReverse = sOut
End Function

Private Sub Command1_Click()

    Text1 = StrReverse(Text1)

End Sub