Pour ouvrir une boîte de message affichant le nom de la boîte de dialogue lorsque vous ouvrez une nouvelle boîte de dialogue, utilisez le code suivant :

Sub DialogBox(DialogBoxName, IsOpen)
        On Error Resume Next
        msgbox "You have just opened the " & ActiveDialogName & _
	 " dialog box."
        On Error GoTo 0
End Sub