Mega Code Archive
Using the MsgBox Function with Arguments
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