Faire quelque chose lorsque MsgBox est fermé

Question

Je crée un programme en NS BASIC/CE qui affiche un avertissement à l'utilisateur, mais lorsque l'utilisateur ferme le MsgBox (en cliquant sur OK), je veux que l'application exécute AfterWarn Sub. Comment puis-je faire ceci?

Answer 1

Désolé, je lis un peu de mal Mais elle:

Dim varResponse As VbMsgBoxResult 
vResult = Msgbox("Are you sure you wanted to make this change?.",vbOkCancel) 
If result = vbOk Then 
    AfterWarn() 
Else 
    'Do something else? 
End if