Ceci est donné par le code suivant :

Sub b1_OnClick
MsgBox "ouais",0,"Titre opop"
End Sub