Reverse a string by using array method

[hanishgautam]

This the code by which you are able to reverse a string by using array method




Sub Reverse_String_Using_Array()
Dim strString As String
Dim lngCount As Long
Dim strReverse As String
Dim Arr()

strString = Application.InputBox("Enter your string which you want to reverse")

For lngCount = 1 To VBA.Len(strString)
ReDim Preserve Arr(lngCount)
Arr(lngCount) = VBA.Mid(strString, lngCount, 1)

Next lngCount

For lngCount = UBound(Arr) To LBound(Arr) Step -1
strReverse = strReverse & Arr(lngCount)
Next lngCount

MsgBox strReverse

Erase Arr

End Sub

[Admin]

Hi

VBA has an in-built function StrReverse to do the same.

Also, you don't need 2 loops to get the result. You can do the same like


For lngCount = Len(strString) To 1 Step -1
strReverse = strReverse & Mid$(strString, lngCount, 1)
Next

[hanishgautam]

Hi Admin,

Thanks for your response. I have aware with StrReverse function but try to write VBA code without using the help of StrReverse function.

Cheers!!! :D