Getting a response from a message box with Select Case

 
  Sub GetAnswer()
      Dim Ans As Integer
      Ans = MsgBox("Continue?", vbYesNo)
      Select Case Ans
          Case vbYes
  '       ...[code if Ans is Yes]...
          Case vbNo
  '       ...[code if Ans is No]...
      End Select
  End Sub

Related examples in the same category

1.	Using the MsgBox Function: MsgBox (prompt [, buttons] [, title], [, helpfile, context])
2.	A single statement splits over four lines.
3.	Buttons and Icons in the MsgBox Function
4.	The MsgBox buttons argument's settings
5.	MsgBox "Welcome to VBA", vbYesNoCancel, "VBA Message Box"
6.	Add the Information icon
7.	Use Chr() function to format MsgBox
8.	Use & to link messages
9.	Pass single parameter to MsgBox
10.	Keep the message box visible while the user works with other open applications
11.	Set default button for MsgBox
12.	Using the MsgBox Function with Arguments
13.	MsgBox with three parameters
14.	Call MsgBox function by using its parameter name
15.	MsgBox with parameter Name: title:=myTitle, prompt:=question, buttons:=myButtons, helpfile:= "HelpX.hlp",context:=55
16.	Returning Values from the MsgBox Function
17.	Save the return value from MsgBox to a variable
18.	Each of the available buttons will produce an integer result.
19.	Check MsgBox result
20.	determines which button was pressed.
21.	Using the Select Case Statement to check the MsgBox button clicked
22.	MsgBox's third parameter is the message box's title. Its fourth and fifth parameters are the Help file and context ID
23.	The message box displays Yes, No, and Cancel buttons
24.	After you have placed the return value into a variable, you can easily introduce logic into your program to respond to the user's selection
25.	Ok To Overwrite
26.	use the MsgBox function result without using a variable
27.	Specifying a Title for a Message Box
28.	Adding a Help Button to a Message Box: use the vbMsgBoxHelpButton constant
29.	Specifying a Help File for a Message Box

Getting a response from a message box with Select Case : MsgBox « Language Basics « VBA / Excel / Access / Word

Related examples in the same category