Thursday, August 16, 2007
A function to reverse a string
Very simple, uses the VBA function StrReverse to reverse the input string.
'A function to reverse a string provided as input
'For example, the string "abcd" will become "dcba"
'Uses the VBA function StrReverse
Public Function ReverseString(sInputString As String) As String
On Error GoTo ReverseString_Error
ReverseString = StrReverse(sInputString)
Exit Function
ReverseString_Error:
ReverseString = "#ERROR#"
End Function
'For example, the string "abcd" will become "dcba"
'Uses the VBA function StrReverse
Public Function ReverseString(sInputString As String) As String
On Error GoTo ReverseString_Error
ReverseString = StrReverse(sInputString)
Exit Function
ReverseString_Error:
ReverseString = "#ERROR#"
End Function
Labels: String Operations
Comments:
Links to this post:
<< Home
Hi
Simple and superb code
Please do visit my VBA blog
http://chennaivba.blogspot.com
and give me your thought.
Thanks
Post a Comment
Simple and superb code
Please do visit my VBA blog
http://chennaivba.blogspot.com
and give me your thought.
Thanks
<< Home
