Zoekresultaten in listbox weergeven in een userform

Private Sub ComboBox1_Change()
 ListBox1.List = [data_tbl].Value
 TextBox1 = ""
End Sub




Private Sub TextBox1_Change()
Dim sv, i As Long, j As Long
ReDim arr(3, 0)
sv = [data_tbl]
ListBox1.List = sv
 With ComboBox1
   If .ListIndex > -1 Then
     For i = 1 To UBound(sv)
            If InStr(1, sv(i, .ListIndex + 1), TextBox1, 1) Then
                For j = 1 To 4
                    arr(j - 1, UBound(arr, 2)) = sv(i, j)
                Next j
              ReDim Preserve arr(3, UBound(arr, 2) + 1)
            End If
        Next
     ListBox1.List = Application.Transpose(arr)
End If
End With
End Sub

Private Sub TextBox1_Change()
Dim i As Long
ListBox1.List =  [data_tbl].value
 With ComboBox1
   If .ListIndex > -1 Then
     For i = ListBox1.ListCount - 1 To 0 Step -1
       If InStr(1, ListBox1.List(i, .ListIndex), TextBox1, 1) = 0 Then ListBox1.RemoveItem i
     Next i
  End If
End With
End Sub

Private Sub UserForm_Initialize()
  ListBox2.List = Sheets("Blad1").ListObjects(1).DataBodyRange.Value
  ListBox1.List = ListBox2.List
End Sub

Private Sub TextBox1_Change()
  ListBox1.List = ListBox2.List
  For j = ListBox1.ListCount - 1 To 0 Step -1
    If InStr(1, ListBox1.List(j, 0) & ListBox1.List(j, 1) & ListBox1.List(j, 2) & ListBox1.List(j, 3), TextBox1, 1) = 0 Then ListBox1.RemoveItem j
  Next j
End Sub

Private sv