This tip demonstrates how to reverse the position of the characters in a string. For example, "String" will be
converted to "gnirtS".

Add a text box, command button and lable to your form. Type something in the text box and hit the command button.

=========================================================
Public Function reversestring(revstr As String) As String
Dim doreverse As Long

reversestring = ""
For doreverse = Len(revstr) To 1 Step -1
reversestring = reversestring & Mid$(revstr, doreverse, 1)
Next

End Function

Private Sub Command1_Click()
Dim strResult As String

strResult = reversestring(Text1)
Label1 = strResult
End Sub