/ Snippet Library - View Code

Snippet details

ID: 448

Viewed: 1365

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

A replacement for the StrReverse function for VB4 and VB5

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllFunction StrReverse(ByVal Text As String) As String Dim length As Long, index As Long length = Len(Text) StrReverse = Space$(length) For index = 1 To length Mid$(StrReverse, length + 1 - index, 1) = Mid$(Text, index, 1) Next End Function

No Reviews to show