Sub MessagePrompt()
Dim response As VbMsgBoxResult
' メッセージボックスを表示し、ユーザーからの応答を取得します
response = MsgBox("処理を続行しますか?", vbYesNo + vbQuestion, "確認")
' ユーザーがYesを選択した場合の処理
If response = vbYes Then
MsgBox "処理を続行します。"
' ここにYesを選択した場合の処理を記述します
Else ' ユーザーがNoを選択した場合の処理
MsgBox "処理を中止します。"
' ここにNoを選択した場合の処理を記述します
End If
End Sub