Reverse a string without using strreverse in Vb script

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 "&RevStr

OutPut:

-----------

Enter the String: UFT

Reversed String is: TFU