Example:

The example uses MsgBox to display a close without saving message in a dialog box with a Yes button a No button and a Cancel button. The Cancel button is the default response. The MsgBox function returns a value based on the button chosen by the user. The MsgBox statement uses that value to display a message that indicates which button was chosen.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Do you want to continue ?: ' Define message.

'Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.

Style = 4 + 16 + 256 ' Define buttons.

Title = "MsgBox Demonstration" ' Define title.

Help = "DEMO.HLP" ' Define Help file.

Ctxt = 1000 ' Define topic

' context.

' Display message.

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' User chose Yes.

MyString = "Yes" ' Perform some action.

Else ' User chose No.

MyString = "No" ' Perform some action.

End If

Related Topics: InputBox, InputBox$ Function