Problème dans formule

Bonjour,

Voilà mon petit problème, j'ai une formule qui me réalise une banale opération de multiplication de TextBox.

Private Sub TextBox7_Change()

UserForm2.TextBox7 = UserForm2.TextBox7.Value
If UserForm2.TextBox8 <> "" Then
UserForm2.TextBox9 = UserForm2.TextBox7 * UserForm2.TextBox8
End If

If Not IsNumeric(TextBox7.Text) Then
MsgBox "valeur numérique obligatoire", vbCritical, "AIDE"
End If
Exit Sub

End Sub

Private Sub TextBox8_Change()

UserForm2.TextBox8 = UserForm2.TextBox8.Value
If UserForm2.TextBox7 <> "" Then
UserForm2.TextBox9 = UserForm2.TextBox7 * UserForm2.TextBox8

End If

If Not IsNumeric(TextBox8.Text) Then
MsgBox "valeur numérique obligatoire", vbCritical, "AIDE"
End If
Exit Sub

Mon problème est que si un utilisateur maladroit veut effacer un chiffre erroné dans la textbox 8 ou 7 il survient une erreur qui me rebalance sur VBA en me soulignant la ligne en gras (suivant la textbox que l'on efface). Je souhaiterais donc savoir comment puis-je utiliser la commande suppr du moins l'autoriser????

Merci d'avance