Split Function

VB 6 included a useful Split function that allowed you to convert delimited text (ie portions of text broken up by a certain character) into an array. This code shows you how to make one if you do not have VB 6. Pass a string, and a delimiter, and it will return an array containing each item between the delimiter.

Private Function Split(Expression As String, Optional Delimiter As String) As Variant
    Dim i As Long
    Dim lNextPos As Long
    Dim sText As String
    Dim lCount As Long
    Dim varTemp() As String
    For i = 1 To Len(Expression)
        
        lNextPos = InStr(i + 1, Expression, Delimiter)
        If lNextPos = 0 Then
            lNextPos = Len(Expression) + 1
        End If
        sText = Mid$(Expression, i, lNextPos - i)
        ReDim Preserve varTemp(lCount)
        varTemp(lCount) = sText
        lCount = lCount + 1
        i = lNextPos + Len(Delimiter) - 1
        
    Next
    Split = varTemp
End Function