Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Returning Values from the MsgBox Function

Sub MsgYesNo3()     Dim question As String     Dim myButtons As Integer     Dim myTitle As String     Dim myChoice As Integer     question = "Do you want to open a new report?"     myButtons = vbYesNo + vbQuestion + vbDefaultButton2     myTitle = "New report"     myChoice = MsgBox(question, myButtons, myTitle)     MsgBox myChoice End Sub