Mega Code Archive
Declare a variable of the appropriate type (a Long variable) to contain the users choice
Sub dec()
Dim lngResponse As Long
lngResponse = MsgBox("Do you want to create the daily report?", _
vbYesNo + vbQuestion, "Create Daily Report")
End Sub