Language Basics VisualBasic Script

'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