VbScript: Reversing String

Function strverese()
Dim name: name = "sumit"
Dim strRev: strRev = ""

strLength = Len(name)

For i = strLength To 1 Step -1

strRev = strRev + Mid(name, i, 1)

Next

MsgBox strRev

End Function