How about 
Private Sub TextBox26_Change()

    Dim a, i As Long, temp
    Me.ListBox1.Clear
    temp = LCase$(Me.TextBox26)
    a = Sheets("DT").ListObjects("DT.Data.Table").DataBodyRange.Value
    If Me.TextBox26 = "" Then
      Me.ListBox1.List = a
    Else
      With Me.ListBox1
          .ColumnCount = 15
          For i = 1 To UBound(a, 1)
              If (LCase$(a(i, 1)) Like "*" & temp & "*") + (a(i, 2) Like "*" & temp & "*") + (a(i, 3) Like "*" & temp & "*") + (a(i, 4) Like "*" & temp & "*") Then
                  .AddItem
                  .List(.ListCount - 1, 0) = a(i, 1)
                  .List(.ListCount - 1, 1) = a(i, 2)
                  .List(.ListCount - 1, 2) = a(i, 3)
                  .List(.ListCount - 1, 3) = a(i, 4)
                  .List(.ListCount - 1, 4) = a(i, 5)
              .List(.ListCount - 1, 5) = a(i, 6)
                  .List(.ListCount - 1, 6) = a(i, 7)
                  .List(.ListCount - 1, 7) = a(i, 8)
                  .List(.ListCount - 1, 8) = a(i, 9)
                  .List(.ListCount - 1, 9) = a(i, 10)
               
                  
                 
                  
              End If
          Next
      End With
    End If
End Sub