previous question for reference:
currently this code is taking the value in a textbox and if it does not exist in the loistbox in column 4 it deletes it from the listbox.
' the code is working fine...
What I need: I now want to use the Split function and using a ;(semi-colon) as a delimiter.
In the textbox...search for each value from the textbox getting rid of all the items in the listbox that do not contain the values from the textbox..
i.e. Textbox33 may have:
So all 4 criteria must exist somewhere in the column specified
Dim strFilter As String
Dim lngIndex As Long
strFilter = frmResultAll.TextBox33.Tex
For lngIndex = ListBox32.ListCount - 1 To 0 Step -1
If InStr(1, ListBox32.List(lngIndex, 3), strFilter) = 0 Then