Допустим вам нужно найти определённую фамилию в ListBox.

Создадим текстовое поле, кнопку и листбокс. Добавим в него несколько записей.
txtFind - текстовое поле. lstNames - листбокс.
При нажатии кнопки будет осуществляться поиск.

Dim fndInfo As String

Dim count As Long
For count = 0 To lstnames.ListCount - 1 Step 1
lstnames.ListIndex = count
fndInfo = lstnames.Text
If StrComp(txtFind.Text, fndInfo) = 0 Then
lstnames.Text = fndInfo
MsgBox "Имя найдено.", vbInformation + vbOKOnly, App.Title
GoTo EXT
End If
If count = lstnames.ListCount - 1 Then
MsgBox "По Вашему запросу ничего не найдено!", vbInformation + vbOKOnly, App.Title
End If
Next count

EXT:

End Sub