Returning Values from the MsgBox Function : MsgBox « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. MsgBox

Returning Values from the MsgBox Function

 
Sub MsgYesNo3()
    Dim question As String
    Dim myButtons As Integer
    Dim myTitle As String
    Dim myChoice As Integer

    question = "Do you want to open a new report?"
    myButtons = vbYesNo + vbQuestion + vbDefaultButton2
    myTitle = "New report"
    myChoice = MsgBox(question, myButtons, myTitle)
    MsgBox myChoice
End Sub

 

Related examples in the same category