VBA ListBox Search

[Anonymous User]

Hi,

I'm trying to Search for a string within a listbox but it will only find it if it is the first or last entry in the listbox.  What is the appropriate way to loop through.

For j = 0 To listbox2.listcount -1
value = listbox2.list(j)
next j

If InStr(1, value, "Well") Then  
MsgBox "YES"
End If

Thank  you.

[KenBuja · Accepted solution]

Try this:

dim blnFound as Boolean blnFound = False  For j = 0 To listbox2.listcount -1     value = listbox2.list(j)    If InStr(value, "Well") Then         blnFound = True    End If next j  If blnFound Then       MsgBox "YES"  End If