Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

The message box displays Yes, No, and Cancel buttons

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