How to Searching ListBox as i type in TextBox

How to search ListBox as the user types in TextBox

Requirement:

The user needs some help with the code below, it searches the contents of the listbox as the user types in the textbox and work fine. However if the user miss types and use backspace nothing happens.

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

Solution:

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1204724-searching-listbox-as-i-type-in-textbox

Code:

Option Explicit
Private Sub TextBox1_Change()
    Dim j As Long, testString As String
    testString = "*" & TextBox1.Text & "*"
    With Me.ListBox1
    .Clear
        .List = Sheets("HERS Data").Range("A2:J" & Sheets("HERS Data").Cells(Rows.Count, 1).End(xlUp).Row).Value
        If .ListIndex = -1 And Len(TextBox1.Text) Then
            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
            Next j
        End If
    End With
End Sub
Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 10
    ListBox1.List = Sheets("HERS Data").Range("A2:J" & Sheets("HERS Data").Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by pike.