Dim I As Long, V As Variant, sFind As String
 
  V = Split(txtSuche.Text, " ")
 
  For I = LBound(V) To UBound(V)
    sFind = V(I)
 
    [color=red]--> [u]hier musst Du jetzt Deine bisherige Suche einfügen, Du _
      darfst da aber nicht mehr nach txtSuche.Text suchen, sondern nach _
      sFind[/color]
 
  Next I

Viel Spass,
R@lf