Boa tarde.

Fiz um codigo em vba que não esta retornando valores na text.box, isso é, é formato procv porem não esta busca, o codigo reconheçe o "item", mas não traz a busca corretamente.

O que será que foi feito errado no codigo que não reconheçe e faz a busaca corretamente?

Private Sub TextBox_2_AfterUpdate()
 
Dim Pesquisa As Long
Dim Codigo As Variant
Dim Intervalo As Sheets

Codigo = TextBox_2.Text
'Intervalo = Plan1.Range("a8:o6000")
Sheets("LISTA MESTRA INTEGRAÇÃO").Select
    'Plan1.Select
Set Intervalo = Plan1.Range("A8:O8000")
            

On Error GoTo trataErro


Pesquisa = Application.WorksheetFunction.VLookup(Codigo, Sheets("Plan2").Range("A8:o5000"), 2, 0)

TextBox_1.Text = Pesquisa


Exit Sub
trataErro:
   texto = "Produto não localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub