SearchListBox

Function Search_ListBox(trig$, lst As ListBox) As Long
Dim items As Long
Dim n As Long
items = lst.ListCount - 1
For n = 0 To items Step 1
If lst.List(n) = trig$ Then
Search_ListBox = n
Exit Function
End If
Next n
Search_ListBox = -1
End Function