Option Compare Text
Dim t(), t1(), x As Long, k As Long, i As Long, z
Private Sub TextBox1_Change()
On Error Resume Next
If TextBox1 = "" Then ListBox1.Clear: Exit Sub
t = Range("e1:bb" & Cells(Rows.Count, 5).End(xlUp).Row).Value
x = 1
For i = 1 To UBound(t)
If Left(t(i, 1), Len(TextBox1)) = Left(TextBox1, Len(TextBox1)) Then
z = t(i, 1): t(i, 1) = t(i, 2): t(i, 2) = z
ReDim Preserve t1(1 To 50, 1 To x)
For k = 1 To 50
t1(k, x) = t(i, k)
If k > 2 Then
If t(i, k) = "" Then t(i, k) = 0
t1(k, x) = t(1, k) & " =" & t(i, k)
End If: Next k: x = x + 1: End If: Next i
ListBox1.Column = t1
End Sub