Wednesday, 24 June 2015

Reverse a string without using strreverse in Vb script

Dim  MyStr, nCnt, i, RevStr

MyStr = inputbox("Enter the String:")
nCnt = Len(MyStr)

For i = 1 to nCnt
     RevStr = Mid(MyStr,i,1)&RevStr
Next

Msgbox "Reversed String is "&RevStr


OutPut:
-----------
Enter the String: UFT
Reversed String is: TFU