Reverse a string without using string functions – VBScript

mystr = inputbox(“Enter the String:”)

‘Option 1 – 
Set r=new regexp
 r.pattern =”w|W” ‘ “[a-z 0-9 A-Z]” is equivalent to w
 r.global=true
 set s=r.execute(mystr)
For each i in s
 revstr = i.value & revstr
Next
MsgBox “Using regexp :” & vbnewline & revstr

‘Option 2 – 
cnt = Len(mystr)
For i = 1 to cnt
  revstr = Mid(mystr, i, 1) & revstr
Next
Msgbox “Using Mid function: ” & vbnewline & revstr

@Please feel free to comment which will encourage me to write more information in future@