• Home
 · 
• Miscellaneous
 · 
• A Good ListBox Seach function

A Good ListBox Seach function

This code searches a listbox for a given string, and returns the the ListIndex of the Item that matches the given string.

Inputs
The string you want to find in the listbox

Returns
if found: the ListIndex that matches the given string If not found: returns -1

Rate A Good ListBox Seach function

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Private Function SearchList(ToSearch As String, lstList As ListBox) As Integer
Dim i As Integer
SearchList = -1
For i = 0 To lstList.ListCount - 1
 If LCase(lstList.List(i)) = LCase(ToSearch) Then
  SearchList = i
  Exit For
 End If
Next i
End Function