Pessoal, seguinte...

uso o código abaixo para carregar meus dados a partir da das minhas textbox... digito o código do meu produto e minhas outras textbox carregam os valores do produto referente ao código digitado.

O problema é a bendita variável que está destacada em negrito... determinando que o meu código é igual ao meu txtcodproduto, ou seja quando eu deleto a informação ele me traz um erro por não haver nenhuma informação digitada na minha txtcodproduto.

com a minha txtcodproduto em AFFrUpdate ele até que não me da esse erro, porém se eu digitar, deletar e sair do meu form ai ele me dá o erro

Private Sub txtcodproduto_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pesquisa1

Dim mensagem

codigo = txtcodproduto

Sheets("PRODUTOS").Select
Set intervalo = Range("A2:L30000")

On Error GoTo Erro

pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) 'produto'

txtproduto = pesquisa1

Exit Sub

Erro:
texto = "Código não localizado"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)