Private Sub TextBox2_Change()
    Me.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="=*" & TextBox2.Text & "*", _
                    Operator:=xlAnd
End Sub

Private Sub TextBox1_Change()
    Dim arr, i&
    If Len(TextBox1.Text) Then
        arr = Me.AutoFilter.Range.Columns(1).Value
        With CreateObject("Scripting.Dictionary")
            For i = LBound(arr) To UBound(arr)
                If CStr(arr(i, 1)) Like TextBox1.Text & "*" Then
                    .Item(arr(i, 1)) = CStr(arr(i, 1))
                End If
            Next
            If .Count Then
                Me.AutoFilter.Range.AutoFilter Field:=1, Criteria1:=.items, _
                    Operator:=xlFilterValues
            Else
                Me.AutoFilter.Range.AutoFilter Field:=1
            End If
        End With
    Else
        Me.AutoFilter.Range.AutoFilter Field:=1
    End If
End Sub