k = 0
Me.ListBox1.Clear
If Me.TextBox1 = Empty Then Me.TextBox1 = "*"
If Me.ComboBox1 = Empty Then Me.ComboBox1 = "*"
For i = 2 To [A65000].End(xlUp).Row
If Cells(i, 1) Like Me.ComboBox1 And Cells(i, 2) Like "*" & Me.TextBox1 & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = Cells(i, 1)
Me.ListBox1.List(k, 1) = Cells(i, 2)
Me.ListBox1.List(k, 2) = Cells(i, 3)
Me.ListBox1.List(k, 3) = i
k = k + 1
End If
Next i