VBA-Suche immer mit Sternchen

Sub MultiSelect()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:", "Sie suchen etwas?")
Set rngFind = Cells.Find(sSearch)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub

Kann man irgendwie dafür sorgen, dass bei den Suchbegriffen IMMER ein Sternchen davor UND dahinter steht?
Diese Makro findet scheinbar nur Texte, wenn sie als einzelnes Wort stehen und nicht wenn sie als Bestandteil eines Wortes auftauchen.
Ich will aber, dass ALLES gefunden und markiert wird, wenn jemand die Suche benutzt.
Gruß und Danke!
Werner