Erro VBA

Pessoal sou novo aqui ! na verdade preciso apenas de uma dica de vb!

seguinte fiz o seguinte código!

o mesmo é só paa fazer uma consulta na planilha e mostrar os dados no campo ! é simples mas tem um erro q não conseguir resolver.

ERRO EM TEMPO REAL DE EXECUÇÃO "6" ESTOURO !!

percebi que esse erro acontece porque no trecho "matricula1 =txt_matricula" acontence que matricula1 é integer e txt_matricula é TextBox! ja mudei para varios tipos mas não resolveu alguma luz ?

desde já agradeço

segue o código


Private Sub txt_matricula_AfterUpdate()

Dim pesquisa
Dim intervalo As Range
Dim matricula1 As String
Dim mesagem As String



matricula1 =txt_matricula


Sheets("dados").Select

Set intervalo = Range("A2:A20")

pesquisa = Application.WorksheetFunction.VLookup(matricula1, intervalo, 2, False)

TextBox2 = pesquisa



End Sub