KJ書きます

ExcelVBA MsgBox2
　MsgBoxを使用した対話型プロシージャの例です。

---------------------------------------
Sub testMsgBox()

'MsgBoxを使用した対話型プロシージャ


Dim MyBtn As Integer
Dim MyMsg As String, MyTitle As String

MyMsg = "選んでください"
MyTitle = "対話型プロシージャの例"

MyBtn = msgbox(MyMsg, vbYesNo + vbExclamation, MyTitle)

If MyBtn = vbYes Then
msgbox "Yesを押しましたね"
Else
msgbox "NOですね"

End If


End Sub
---------------------------------------
このようにしてMsgBoxで押したボタンによって
次の動作を変えることができます。
[再試行]や[無視]もありますので、いろいろと応用ができます。