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