use text box to auto-filter pivot field

Dears,

i ask if can i use text box to auto-filter pivot field, i have this code:

Private Sub TextBox1_Change()
            Range("A2").AutoFilter 1, "*" & [A1] & "*"
End Sub

to auto-filter a data filled in table, but can't use it with pivot.

is there any other technique to use textbox to auto-filter with pivot  

Gratefully,