April 4, 2017February 23, 2020 by Sharath Chandran

How to find the string length and reverse the string

Dim strLength

Dim objStr

Dim objStrReverse

objStr = Inputbox(“enter a long string”)

strLength =len(objStr)

print strLength

For i = strLength to 1 step-1

objStrReverse=objStrReverse&mid(objStr,i,1)

Next

print objStrReverse