Reverse a string without using "Strreverse"

Dim  MyStr, nCnt, i, RevStr


MyStr = inputbox("Enter the String:")
nCnt = Len(MyStr)

For i = 1 to nCnt
   RevStr = Mid(MyStr,i,1)&RevStr
Next

Msgbox "Reversed String is:  "&RevSt


Output
-----------
Enter the String: UFT
Reversed String is: TFU