Sub Main()
'Invoke MsgBox with Abort, Retry, and Ignore buttons and a Stop
icon.
rc% = MsgBox("Disk drive door is
open.",ebAbortRetryIgnore Or ebCritical)
If rc% = 3 Then
'The user selected Abort from the dialog
box.
MsgBox "The user clicked Abort."
End If
End Sub