Reverse a string without using strrev function

str = "VB Script"
for i=len(str) to 1 step -1
     temp = temp & mid(str,i,1) 
next
str = temp
MsgBox temp