|
' A replacement for the StrReverse function for VB4 and VB5
Function 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 |