Visual Basic - VB5 y funcion Split

hola programadores:
Tengo VB5 professional, voy bastante avanzado en mi proyecto, ahora que necesito ocupar la funcion Slpit para guardar en un arreglo el contenido de un textbox separado por comas, y resulta que VB5 NO TIENE ESTA FUNCION!!, estoy desesperado, a esta altura no me quiero cambiar a VB6, que se hace en estos casos?
alguien por casualidad tiene implementado esta funcion.

Gracias y por favor denle una mano a un programador deseperado.

Salu2
Buka

Bueno aquí tienes mi versión de la función Split, espero que sea compatible con VB5

Private Function miSplit(cadena As String, separador As String) As Variant
Dim i As Long, auxArray() As String
Dim numSubcadenas As Long, lonSeparador As Long
Dim lonCadena As Long, j As Integer, oldI As Long
lonSeparador = Len(separador)
lonCadena = Len(cadena)
i = 1
Do
i = InStr(i, cadena, separador)
numSubcadenas = numSubcadenas + 1
If i > 0 Then
i = i + lonSeparador
Else
Exit Do
End If
Loop While i < lonCadena
ReDim auxArray(numSubcadenas - 1)
i = 1
oldI = 1
For j = 0 To numSubcadenas - 1
i = InStr(i, cadena, separador)
If i = 0 Then
i = lonCadena + 1
End If
auxArray(j) = Mid(cadena, oldI, i - oldI)
i = i + lonSeparador
oldI = i
Next j
miSplit = auxArray
End Function

Juan, aun no entiendo lo que hace tu función, ni que devuelve como funcion, serias tan amable de explicar?

gracias

Buka