You can cycle through all the items in a list box.
dim strSearchFor As String
strSearchFor = "Search Criteria"
For varItm = 0 To Me.ListBox.ListCount - 1
If Me.ListBox.Column(1, varItm) = strSearchFor Then
'do what you want
Exit For
End If
Next varItm
I'm not sure if you could use the standard MS Office "Find" window to input the search criteria or not.