VBScript to reverse a String without using strreverse

Dim myStr, sLen

myStr=InputBox("Enter your string")
sLen = Len(myStr)

for i=1 to sLen
strRev = mid(myStr,i,1)& strRev
Next
MsgBox strRev