Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
strFilter = Split(TextBox33.Text, ";") For lngIndex = ListBox32.ListCount - 1 To 0 Step -1 bFound = True For lngPart = 0 To UBound(strFilter) ' VALUES TO SEARCH FOR ' assuming bfound is still true If InStr(1, UCase(ListBox32.List(lngIndex, 3)), UCase(strFilter(lngPart))) = 0 Or InStr(1, UCase(ListBox32.List(lngIndex, 4)), UCase(strFilter(lngPart))) = 0 Then bFound = False Exit For End If If Not bFound Then ListBox32.RemoveItem (lngIndex) End If Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.