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