【VBA】OKキャンセルのメッセージボックス｜MsgOKCancel

' -----------------------------------------------------------------------
' 引数          : text:メッセージボックスのメイン文章/title:見出し
' -----------------------------------------------------------------------
Public Function MsgOKCancel( _
                                                ByVal text As String, _
                                                ByVal title As String) As Boolean
    MsgOKCancel = MsgBox(text, vbOKCancel, title)
End Function

vbOKCancel + vbCritical '警告
vbYesNo + vbQuestion '質問
vbOKOnly + vbExclamation '注意
vbAbortRetryIgnore + vbQuestion