Ciao.
Dunque, non esiste una funzione specifica per il tuo problema, ma
puoi creare tu una Sub o una Function che faccia al caso tuo.

Prova con questo esempio:
Crea un progetto con:

Form1, Text1, List1, Command1

Copia il codice seguente ed esegui.

------------------------------------------------------------
Sub DividiStringa()
On Error Resume Next
Dim Stringa As String '\\ La stringa che vuoi dividere
Dim Parola(100) As String '\\ L'Array X le parole
Dim MyChar As String '\\ Per la scansione dei caratteri
Dim tmpString As String '\\ Stringa temporanea
Dim i As Integer '\\ Contatore

Stringa = CStr(Text1.Text) '\\ Qui ci metti quello che vuoi

For i = 0 To Len(Stringa)
MyChar = Mid(Stringa, i, 1)
If MyChar = "," Then
MyChar = ""
Parola(i) = Trim(tmpString)
List1.AddItem Parola(i)
tmpString = ""
End If

If i = Len(Stringa) Then
tmpString = tmpString & MyChar
Parola(i) = Trim(tmpString)
List1.AddItem Parola(i)
End If

tmpString = tmpString & MyChar
Next i

End Sub

Private Sub Command1_Click()
Call DividiStringa
End Sub
------------------------------------------------------------
Spero faccia al caso tuo.
Fammi sapere se ti sono stato utile!!
Bye.
Janx