Solved! Go to Solution.
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
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