Visual Basic para Aplicaciones - técnico

no me muestra los datos a buscar en el formulario

Reemplace este texto saludos. me encuentro haciendo un formulario en excel y estoy programando el botón buscar.
estoy usando la siguiente formula:

Private Sub BUSCAR_Click()
On Error Resume Next

Me.AA.Text = Application.WorksheetFunction.VLookup(Me.BB.Text, hoja2.Range("B:R"), 2, 0)

Me.BB.Enabled = False

End Sub

quiero al introducir el valor BB, busque y muestre en la casilla AA el valor que se encuentre en la tabla
los datos se encentran en la hoja 2
quiero al introducir el valor BB, busque y muestre en la casilla AA el valor que se encuentre en la tabla
los datos se encentran en la hoja 2

En principio esto es lo que hace:


Le veo un fallo, si el valor buscado no existe en Me.AA.Text se mostrara el último valor que tuviese a menos que se limpie antes en el código que no veo o así:


A parte de esto ¿Cual es el problema o la pregunta?

Sakudos.
\\//_

Saludos. muchas gracias me ha funcionado.

pero al momento de guardar datos numéricos me lo guarda, pero al momento de buscarlos , no lo hace