Visual Basic Consultar pelo TextBox VBA

[Michele Dias]

Gostaria de uma ajuda criei uma consulta atraves de um textbox no formulario no Excel e minha consulta esta funcionando apenas se o campo tiver 4 digitos, alguem pode me ajudar

Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim Matrícula As Integer
Dim pequisa
Dim mensagem

Matrícula = TextBox1.Text
Sheets("Luvas").Select
Set intervalo = Range("A2:E200")

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 5, False)

TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus

Exit Sub