Kod:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = text1.Text Then
MsgBox " your item has been founded" & i, vbInformation + vbOKOnly, "founded"
Exit Sub
End If
Next i
MsgBox " Not founded", vbExclamation + vbOKOnly, "not founded"
End Sub