【VBA】メッセージボックスをモジュールに集める｜OKOnly,OKCancel,YesNo

'=============================
' Module: MsgBoxHelper.bas
'=============================

Option Explicit

'--- OKのみ ---
' 情報メッセージ用（デフォルトタイトル: "お知らせ"）
Public Sub MsgOKOnly( _
                        		ByVal text As String, _
                        		Optional ByVal title As String = "お知らせ")

	MsgBox text, vbOKOnly + vbInformation, title
End Sub


'--- OK/Cancel ---
' OKでTrue, CancelでFalse（デフォルトタイトル: "確認"）
Public Function MsgOKCancel( _
                        		ByVal text As String, _
                        		Optional ByVal title As String = "確認") As Boolean

	MsgOKCancel = (MsgBox(text, vbOKCancel + vbQuestion, title) = vbOK)
End Function


'--- Yes/No ---
' YesでTrue, NoでFalse（デフォルトタイトル: "確認"）
Public Function MsgYesNo( _
                        		ByVal text As String, _
                        		Optional ByVal title As String = "確認") As Boolean

	MsgYesNo = (MsgBox(text, vbYesNo + vbQuestion, title) = vbYes)
End Function


'--- Error ---
' エラーメッセージ用（デフォルトタイトル: "やり直してください"）
Public Sub MsgError( _
                        		ByVal text As String, _
                        		Optional ByVal title As String = "やり直してください")

	MsgBox text, vbCritical, title
End Sub

' decide how to proceed based on result
' 呼び出し側例：結果に応じて処理方針を決定

	' 入力検証
	If Not IsValidInput() Then
		MsgError "入力が不正です。"
		Exit Sub	' ← 終了は呼び出し側で
	End If

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