Probleme avec textebox

j'ai encord un problème...:( tout fonctionne me si j'ajoute la ligne me.tb_scan.text = clear un message d'erreur survien. Ce que j'éssais de fair est de vidé ma textbox une foie le produit scanné pour pouvoir en scanné un nouveau. Merci si vous pouvez m'aidé

Private Sub tb_scan_Change()

For Each c In Range([B2], [B65000].End(xlUp))

If c.Offset = CDbl(Me.tb_scan) Then

Me.lb_code_produit = c.Offset(0, 1).Value
Me.lb_description = c.Offset(0, 2).Value
Me.lb_qty = c.Offset(0, 3).Value
Me.lb_poids = c.Offset(0, 5).Value

Me.tb_scan.Text = Clear

End If

Next c

End Sub