Language Basics VisualBasic Script

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