create Split function

[kevincarvin]

I would like to create a function that parses a string into an array like the split function (vb v6).
ex: "12 5 8 14"
This string is delimited by spaces. The resulting array would contain. myArray(1)=12 myArray(2)=5 etc.

Thanks

[HeSaidJoe]

Aaron Young posted this a few days ago..perhaps you can use it.

Public Function Split2(ByVal sString As String, ByVal sSeparator As String) As Variant
    Dim sParts() As String
    Dim lParts As Long
    Dim lPos As Long
    
    lPos = InStr(sString, sSeparator)
    While lPos
        ReDim Preserve sParts(lParts)
        sParts(lParts) = Left(sString, lPos - 1)
        sString = Mid(sString, lPos + Len(sSeparator))
        lPos = InStr(sString, sSeparator)
        lParts = lParts + 1
    Wend
    If Len(sString) Then
        ReDim Preserve sParts(lParts)
        sParts(lParts) = sString
    End If
    Split2 = IIf(lParts, sParts, Array())
End Function

'Example:

Private Sub Form_Load()
    Dim vLines As Variant
    Dim lLine As Long
    
    vLines = Split2("Line1,Line2,Line3", ",")
    For lLine = 0 To UBound(vLines)
        List1.AddItem vLines(lLine)
    Next
End Sub

[kevincarvin]

Thanks for the code. It works great!