Utilisation Exit Sub

Bonjour,
J'ai un soucis avec le Exit Sub de mon programme je ne comprends pas lorsque je passe dans le if et si la valeur et à non je devrais sortir de mon programme grace au Exit sub alors que la il continu je vous donnes un échantillon du programme
Y a t-il un moyen pour arrêter le programme au niveau du Exit Sub et ne pas faire le restant du code.

Le programme et lancé par un UserForm qui contient plusieurs TextBox .

Sub Gestion_de_Stock_Mod10(varcrayon As Variant, flagcrayon As Variant, vargomme As Variant, flaggomme As Variant, varregle As Variant, flagregle As Variant, varcarton_papier, flagcarton_papier)
'
If vargomme + varregle + varcarton_papier + varcrayon = "" Then
new_saisie = InputBox("Vous n'avez rien saisie voulez vous une nouvelle saisie OUI/NON?")
Else

GoTo deb

End If

If new_saisie = "oui" Then

UserForm3.Show

Else

Exit Sub

End If

deb:

jour = Day(Date)

For Each Cellule In Range("A4:A35")

[.....]

End Sub