Hi
I need some help with the code below, it searches the contents of the listbox as I type in the textbox and work fine. However if I miss type and use backspace nothing happens.
Can some one help me out so backspace works in the search?
Code
private Sub TextBox10_Change()
Dim j As Long
Dim testString As String
testString = LCase("*" & TextBox10.text & "*")
With ListBox1
For j = .ListCount - 1 To 0 Step -1
If (Not (LCase(.List(j, 0)) Like testString) And (Not (LCase(.List(j, 1)) Like testString))) _
And (Not (LCase(.List(j, 2)) Like testString) And (Not (LCase(.List(j, 3)) Like testString))) Then
.RemoveItem j
End If
Next j
End With
End Sub
Display More
Many thanks in Advance
AndyW