Salut à toutes et à tous ! (encore )

Voilà mon nouveau problème. J'ai donc une partie de mon code qui donne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
While Not bool
    NbMod = InputBox("Combien de modules y a-t-il ?", "Nombre de modules")
    If StrPtr(NbMod) = 0 Then Exit Sub
    If (Not IsNumeric(NbMod) Or Val(NbMod) <= 0) Then
        MsgBox "Veuillez introduire un nombre strictement supérieur à 0.", vbCritical
    Else
        bool = True
    End If
Wend
La ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If StrPtr(NbMod) = 0 Then Exit Sub
me permet donc, une fois le bouton "Annuler" cliqué, de sortir de mon programme tout simplement. Pour l'instant, cela marche très bien, une fois le bouton enfoncé, je quitte l'ensemble de mon programme qui n'a plus besoin d'être continué.

Maintenant, je veux ajouter une commande supplémentaire à faire avant "d'Exit Sub", comme supprimer certaines lignes, par exemple.
J'avais donc pensé à un :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If StrPtr(NbMod) = 0 Then 
'Liste de choses que je souhaite faire avant de tout quitter
Exit Sub
Et bien sûr, le "Wend" n'a plus son "While".

Comment faire alors pour tout quitter et ne pas continuer la suite du programme lorsque j'appuie sur ce bouton tout en faisant quelques actions avant?

En tout cas merci d'avance !

Edit : j'ai remplacé mon Exist Sub par End, je trouvais ça mieux