メッセージボックスにキャンセルボタンを追加したい

VBAだと簡単に設定できるのですが　あくまでマクロで設定したいとします。
普通にマクロの新規作成でメッセージボックスを設定すると

こんな感じで
↓実行時は　こんなメッセージボックスが開きますが　OKボタンしか無くて　Escキーを押しても次の行以降（のクエリとか）が実行されてしまいます。


このメッセージボックスにキャンセルボタンを追加して　間違ってマクロを実行したときにエスケープ（キャンセル）できるようにしたいと思いまうす。



　　　
ツールバーの『表示→条件』でマクロに条件を表示します。


条件が表示されました。


条件に以下を入力
MsgBox("本当に実行しますか？",4)<>6

アクションを以下に設定します
全マクロの中止


実行してみると

「いいえ」をクリックすると　2行目以降のクエリは実行されません。