Séparer une chaîne de caractère en fonction d'un séparateur en VB

Function Split(machaine As String, sep As String) As String()
Dim I As Integer
Dim J As Integer, K As Byte
Dim chaineTemp As String
Dim Tableau() As String

I = 0
J = 0
K = 0
chaineTemp = machaine & sep

ReDim Preserve Tableau(0)


For I = 1 To Len(chaineTemp)
J = InStr(I, chaineTemp, sep)

K = K + 1
ReDim Preserve Tableau(K - 1)
Tableau(K - 1) = LTrim(Mid(chaineTemp, I, J - I))
I = I + Len(Mid(chaineTemp, I, J - I))
Next

Split = Tableau

End Function