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