Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Getting a response from a message box with Select Case

Sub GetAnswer()       Dim Ans As Integer       Ans = MsgBox("Continue?", vbYesNo)       Select Case Ans           Case vbYes   '       ...[code if Ans is Yes]...           Case vbNo   '       ...[code if Ans is No]...       End Select   End Sub