Filtrage avec textbox (incluant < et >)

Bonjour,
voici une ligne de code toute bete pour faire un filtrage sur mon fichier excel:

If ComboBoxpotenza3.Value = "P (kW)<3" Then
ActiveSheet.Range("a1:t1").AutoFilter Field:=15, Criteria1:="<3"
End If

mon problème réside dans le fait que maintenant je souhaite faire un filtrage des données inférieures d'une textbox.

If TextBox1.Value <> "" Then
ActiveSheet.Range("a1:t1").AutoFilter Field:=15, Criteria1:="= <textBox1.Value"
End If

Avec ce code, excel execute un filtre. Mais aucun résultat n'est visible, car dans excel mon filtre ne se base pas sur la valeur de la textbox1 (cad 10,20 ou 1000 par exemple) mais sur la valeur "textbox1" et donc aucun résultat.

J'espère etre clair. Si quelqu'un a une idée.

Merci