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