Vb yes no qui lance 2 autres modules

Bonjour.

J'ai un module qui pose une question et qui doit lancer 2 autres modules si la réponse est oui.

Que je clique sur oui ou non les modules se lance.

Voici mon code:

Sub Lancement()
Dim result As Integer

MsgBox "Voulez-vous vraiment effacer toutes les données du formulaire", vbQuestion + vbYesNo

if vbno then exit sub
 If vbYes Then
    Module3.clearCB
    Module1.vider
Else

End If

End Sub

Pouvez-vous m'indiquer qu'elle est mon erreur svp.

Merci

Bonjour

Essaie ainsi :

Option Explicit

Sub Lancement()
    Dim result As Integer, rep&

    rep = MsgBox("Voulez-vous vraiment effacer toutes les données du formulaire", vbQuestion + vbYesNo)
    If rep = 7 Then
        Exit Sub
    Else
        Module3.clearCB
        Module1.vider
    End If
End Sub

Bye !