How to reverse a string without using strreverse

How to reverse a string without using strreverse

 

Dim sString , sStringLength

sString = inputbox(“Enter any String:”)

sStringLength = Len(sString)

For i = sStringLength  To 1 Step -1

rString = rString + mid (sString ,i,1)

Next

print revstr