Søg i listview

Jeg har et Listview, dataene i det kommer fra en db.
Mit spm er kan man søge efter en bestemt linie i listview'et.

eks.

Brugeren for en Inputbox frem, indtaster et søge ord.
Så finder den ud af om den eksakte linie står i listview'et.

Det jeg har nu:

Navn = InputBox("Indtast personens navn")

i = ListView1.ListItems.Count
For Find = 0 To i
If Navn = ListView1.SelectedItem.SubItem(1) Then
MsgBox "Personen findes"
Exit sub
End If
Next Find

MsgBox "Personen findes ikke"