buscarv con cuadro de texto en formulario

Hola!
Estoy usando este código para buscar en la hoja productos la descripción y
el presio y ponerlos en los textbox 50 y 51 en función del textbox2

pero no me funciona muy bien ya que si el codigo del producto es por ejemplo
si yo escribo 31 el toma cualquier producto que dentro de su código tenga el
31 es decir toma el producto con el codigo 3124

ya probé poniendo en codigo con el after uptate pero igual.

Private Sub TextBox2_change()
Sheets("productos").Select
[c7].Select
On Error GoTo noencontro
Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox50 = ActiveCell
ActiveCell.Offset(0, 4).Select
TextBox51 = ActiveCell
noencontro:
End Sub


Gracias por la ayuda

Osiris