Check MsgBox result : MsgBox « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. MsgBox

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

 

Related examples in the same category