Sub MessageBoxFunction() Dim intAnswer As Integer intAnswer = msgBox("Are You Sure?", vbYesNoCancel + vbQuestion, _ "Please Respond") End Sub