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