April 1, 2000

‘ A replacement for the Split function under VB4 and VB5” Note that the return value is a Variant that contains’ an array of stringsFunction Split(ByVal Text As String, Optional

‘ A replacement for the StrReverse function for VB4 and VB5Function StrReverse(ByVal Text As String) As String Dim length As Long, index As Long length = Len(Text) StrReverse = Space$(length)

‘ Join variant that works with’ bi-dimensional arrays of any type’ and that encloses string values between quotes” ARR is the 2-dimensional array whose element must be joined’ ROWSEPARATOR is

‘ A replacement for the InStrRev function under VB4 and VB5” NOTE: uses the StrReverse functionFunction InStrRev(ByVal Text As String, Search As String, _ Optional ByVal Start As Long =

‘ A replacement for the Join function under VB4 and VB5Function Join(arr() As String, ByVal Delimiter As String) As String Dim index As Long For index = LBound(arr) To UBound(arr)

‘ A Split variant that parses a string that contains’ row and column separators, and returns a 2-dimensional array” the result String array has a number of columns equal’ to

‘ Join variant that works with arrays of any type’ and that encloses string values between quotes” ARR is the array whose element must be joined’ SEPARATOR is the separator

‘ A replace for the Filter function under VB4 and VB5” Note that the source array is modified. For this reason’ this is declared as a Sub rather than a