Dim a() as String
Dim i as Integer
 
a = Split(TextZumSuchen, " ")
 
For i = LBound(a) + 1 To UBound(a) - 1 'Erster Eintrag startet nicht mit " "; _
  Letzter Eintrag endet nicht auf " "
    Debug.Print a(i) & " fängt mit einem Leerzeichen an und hört mit einem" & _
    "Leerzeichen auf"
Next i