VBA メッセージボックス Enterで閉じるを拒否

Question

VBAにてメッセージボックスの選択肢で条件分岐をしています。
参考コードは以下の通りです。

Dim ANS As VbMsgBoxResult
    ANS = MsgBox("処理を続けて良いですか？", vbYesNo + vbQuestion)

    If ANS = vbYes Then
        '処理続行
    Else
        Exit Sub
    End If
コード

ユーザーがメッセージボックスを確認せず
【Enter】を押してしまうケースを回避したいです。

Enterキーでの　メッセージボックス回答を拒否することはできるでしょうか？
どのようなプログラムにすればよいでしょうか？

ご教示お願い致します。

Answer 1

標準のメッセージボックスでのキー制御はほぼ無理なので
vbYesNoCancel + vbQuestion + vbDefaultButton3でキャンセル時は再表示が現実的な解決策だと思います。

Comments

[riko]

ご回答ありがとうございます。
キャンセル　再表示　の対応で　逃げようと思います。

Answer 2

単純な対策として「いいえ」が選択されてる状態で表示されるようにしてはどうでしょう

Comments

[riko]

ご回答ありがとうございます。
申し訳ありませんが、きちんと選んでもらうのが
一番の目的なので、Enterキーでの選択を回避したいと考えています。