search box text and number

[handri]

hi,

Below is code for my search box.

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("TABLE13").Range.AutoFilter Field:=1, _
        Criteria1:="*" & [D2] & "*", Operator:=xlFilterValues
End Sub

Sub clearFilter()
    [D2] = ""
    ActiveSheet.ListObjects("TABLE13").Range.AutoFilter Field:=1
End Sub

The matter is this code was not working for the number searching in the table list created. But If the number stored as text (green triangle) was fine.
How do i combine a number and text along with this search box.

thank you