Valor en Textbox

Mira estoy haciendo el autofiltro pero en el textbox tengo un valor que es 1511111, quiero que al poner este valor en el textbox, me busque esta cantidad en el rango pero no se que poner donde dice Val(Textbox3.Text),
Me puedes ayudar, este es el código que tengo.
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$6").AutoFilter Field:=8, Criteria1:= _
"=" & Val(TextBox3.Text)