This is ithe Basic set of options:
Options are chained using a Plus [+], see sample below, to link the options wanted.
Sub myMsg()
myBody = "This is a Test!"
myTitle = "Test!"
myMsgTypeOptionAM = vbApplicationModal 'user must respond before continuing current application
myMsgTypeOptionSM = vbSystemModal 'all applications suspended until user responds
'Show one of these Icons in the MsgBox!
myMsgIconOptionC = vbCritical
myMsgIconOptionE = vbExclamation
myMsgIconOptionI = vbInformation
myMsgIconOptionQ = vbQuestion
'Make this One Button the Default in the MsgBox!
myMsgDefaultButt1 = vbDefaultButton1
myMsgDefaultButt2 = vbDefaultButton2
myMsgDefaultButt3 = vbDefaultButton3
myMsgDefaultButt4 = vbDefaultButton4
myMsgHlpButt = vbMsgBoxHelpButton 'Include the HELP button option!
'Display one of these Button sets!
'vbOK = 1, vbCancel = 2, vbAbort = 3, vbRetry = 4, vbIgnore = 5, vbYes = 6, vbNo =7
myMsgButtsOKC = vbOKCancel
myMsgButtsOK = vbOKOnly
myMsgButtsRC = vbRetryCancel
myMsgButtsYN = vbYesNo
myMsgButtsYNC = vbYesNoCancel
MsgBox myBody, _
myMsgIconOptionI + myMsgButtsOK, _
myTitle
End Sub