How to find the string length and reverse the string

Dim strLength
Dim objStr
Dim objStrReverse
objStr = Inputbox(“enter a long string”)
strLength =len(objStr)
print strLength
For i = strLength to 1 step-1
        objStrReverse=objStrReverse&mid(objStr,i,1)
Next
print objStrReverse