Listbox

Hajo hat mir schon sehr geholfen, habe aber
leider immer noch ein kleines Problem !

Ich möchte bei unten aufgeführte Code gerne
das eine wiederholte Suchfunktion nach dem Bergiff
gestartet wird.
Kann mir jemand weiterhelfen ?

Private Sub cmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
Set rngFind = ActiveSheet.Cells.Find(txtSuchen.Text, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
lstFind.AddItem rngFind
Set rngFind = ActiveSheet.Cells.FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> rngFirst.Address
End Sub