Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Check MsgBox result

'Button Selected      Constant      Value 'OK                   vbOK          1 'Cancel               vbCancel      2 'Abort                vbAbort       3 'Retry                vbRetry       4 'Ignore               vbIgnore      5 'Yes                  vbYes         6 'No                   vbNo          7 Sub MsgBoxDemo()     Dim Answer As Long          Answer = MsgBox("Message", vbQuestion + vbOKCancel, "Error")            If Answer = vbOK Then         MsgBox "OK"       End If       If Answer = vbCancel Then         MsgBox "Cancel"       End If End Sub