Eviter le négative dans un textBox

SVP, je demande de l'aide.

j'utilise cette commande pour calculer la valeur du textBox8, je voudrais la contrôler pour ne pas avoir une valeur négative, j'ai utiliser ce Code mais ça n'a pas marché

Private Sub CommandButton5_Click()
'for calcul
If (TexBox8.Value) > (TexBox6.Value) Then " "

    TextBox8.Value = Val(TextBox8.Value) - Val(TextBox6.Value) 
    Else
    MsgBox ("Vérifiez La qté entrée, vous avez entrer une valeur supérieur au reste!")
    End If

End Sub

Merci

Salut essadqi,

essaie comme ca

Private Sub CommandButton5_Click()
'for calcul
If TexBox8.Value > TexBox6.Value Then 

    TextBox8.Value = TextBox8.Value - TextBox6.Value
    Else
    MsgBox ("Vérifiez La qté entrée, vous avez entrer une valeur supérieur au reste!")
    End If
    End Sub

Merci beaucoup, c'est résolu