¿Por qué me da el error 13 en VBA? Dice que No coinciden los datos

Tengo en una hoja de excel un control de inventario, lo que quiero hacer es introducir producto terminado al inventario, el código que tengo es este:

Private Sub CommandButton1_Click()
Worksheets("Hoja1").Select
Range("A5:A500").Find(What:=ComboBox1.Value, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 3).Select
bodegaanterior = ActiveCell.Value
bodeganueva = Val(ActiveCell.Value) + Val(TextBox3.Value)
ActiveCell.Value = bodeganueva
Selection.End(xlToLeft).Select
End Sub

http://subir.cc/thumbs/capturziz.png

Muchas Gracias