Option Explicit
 
Private Sub Command1_Click()
    Dim strWoerter() As String
    Dim i As Long
 
    strWoerter = SatzSplitten("Dieser Satz    besteht     aus sechs       " & _
      "Wörtern")
 
    For i = 0 To UBound(strWoerter)
        Debug.Print strWoerter(i)
    Next i
 
End Sub
 
Private Function SatzSplitten(strSatz As String) As String()
    Dim strWort() As String     'String-Array mit Wörtern
    Dim strWort2() As String    '"Bereinigtes" String-Array (also ohne _
      Leerzeichen)
    Dim i As Long
    Dim lngAnzahl As Long       'Anzahl der Wörter
 
    lngAnzahl = 0
 
    strWort = Split(strSatz, " ") ' Leerzeichen als Trennzeichen
 
    For i = 0 To UBound(strWort)    'Ermittelt die Anzahl der richtigen Wörtern
        If strWort(i) <> "" Then lngAnzahl = lngAnzahl + 1
    Next i
 
    ReDim strWort2(lngAnzahl) As String
 
    lngAnzahl = 0
 
    For i = 0 To UBound(strWort)    'Speichern von richtigen Wörtern in
        If strWort(i) <> "" Then    'strWort2
            strWort2(lngAnzahl) = strWort(i)
            lngAnzahl = lngAnzahl + 1
        End If
    Next i
 
    SatzSplitten = strWort2
 
End Function