Gleiche Daten in der Liste

Ich lade die Daten in eine listbox und kann einen Suchbegriff in ein textfeld eingeben. beim drücken des buttons wird nach dem begriff gesucht und in der liste makiert. Was kann ich tun wenn es zwei gleiche namen gibt in der liste??

danke:)

Private Sub cmdAllgemeineSuche_Click()
Dim L As Long

textAllgemeineSuche.SetFocus

If textAllgemeineSuche = "" Then
MsgBox "Es wurde kein Begriff eingegeben!"
textAllgemeineSuche.SetFocus
End If

For L = 0 To listDaten.ListCount - 1
On Error Resume Next
If textAllgemeineSuche = listDaten.List(L, 0) Then
listDaten.ListIndex = L
End If
Next

textAllgemeineSuche = ""
textAllgemeineSuche.SetFocus
End Sub