ReversingString

Public Function reversestring(revstr As String) As String
'revstr: String to reverse

'Returns: The reverse string

Dim doreverse As Long
reversestring = ""
For doreverse = Len(revstr) To 1 Step -1
reversestring = reversestring & Mid$(revstr, doreverse, 1)
Next
End Function

'Use


Dim strResult As String
strResult = reversestring("String")
MsgBox strResult