Sub konstantenAuswahl()
    MsgBox "Hier ist vbYesNo", vbYesNo
    MsgBox "Hier ist vbYesNoCancel", vbYesNoCancel
    MsgBox "Hier ist vbOKCancel", vbOKCancel
    MsgBox "Hier ist vbCritical", vbCritical
    MsgBox "Hier ist vbOKOnly", vbOKOnly
    MsgBox "Hier ist vbAbortRetryIgnore", vbAbortRetryIgnore
    MsgBox "Hier ist vbRetryCancel", vbRetryCancel
    MsgBox "Hier ist vbQuestion", vbQuestion
    MsgBox "Hier ist vbExclamation", vbExclamation
    MsgBox "Hier ist vbInformation", vbInformation
End Sub