TextBox ile ListBox da numerik veri süzme

[bedri41]

Üç textbox ile listboxda aşağıdaki kod ile süzme işlemi yapıyorum. Veriler alfebetik olduğunda sorunsuz süzüyor, hatta rakamları metin olarak biçimlendirdiğimde de çalışıyor. Ancak sayısal değer süzmüyor.

Private Sub TextBox1_Change()
If TextBox1 <> "" Then S1.Range("A1:Q" & Rows.Count).AutoFilter Field:=1, Criteria1:="=" & TextBox1 & "*"
If TextBox2 <> "" Then S1.Range("A1:Q" & Rows.Count).AutoFilter Field:=2, Criteria1:="=" & TextBox2 & "*"
If TextBox3 <> "" Then S1.Range("A1:Q" & Rows.Count).AutoFilter Field:=3, Criteria1:="=" & TextBox3 & "*"
Veri_Al
End Sub

Bunlardan örneğin 2. stundaki veriler sayı olsa TextBox2 nin bunu süzmesi için nasıl bir değişiklik yapılması gerekir.