VBA DOM要素の取得について

Question

**動作環境： **
OS： Windows7 32bit
開発環境： Access2010 VBA
操作対象：IE11

質問内容：
いつもお世話になっております。

IE操作後の実行ボタンで、確認ウィンドウが表示されますが、それを押せずに困っています。
(ウィンドウタイトル：Webページからのメッセージ　表示内容：～印刷画面を表示します。　ボタン　OK　キャンセル）
参考になりそうなサイトページは参照していますが、解決にまで至っていません。
アドバイスいただけると助かります。

【サンプルコード】

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

sub test()
Dim IE As InternetExplorer

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://～/OpenContentList?NO=11025411"
Do While IE.Busy Or IE.ReadyState < 4
DoEvents
Loop

With IE.Document
Set button = .getElementById("allCheck") '画面操作1（ボタン操作）
button.Click
.all("commandSelected")(4).Selected = True '画面操作2(コンボボックス選択)

Set button = .getElementById("executeButton")  
button.Click　'←この実行ボタン押下後、確認ウィンドウ表示[ここで止まる]

sleep 1000
Sendkeys "{ENTER}", True

end with

Exit Sub

【サンプル参照先HTML】

	$("#executeButton").click(function() {
		var cmSelected = $("#commandSelected option:selected").val();

		var checkedDocumentIdValue = [];
		var checkedPrItemsValue = [];
		 $("input[id=processItems]:checkbox:checked").prev("input[id=processItemsvalue]").each(function(){
			 checkedPrItemsValue.push(this.value);
		});
		 $("input[id=processItems]:checkbox:checked").prev("input[id=processItemsvalue]").prev("input[id=documentIdItems]").each(function(){
			 checkedDocumentIdValue.push(this.value);
		});

		var checkItemCount = checkedPrItemsValue.length;

		if(checkItemCount  == 0){
			alert("ドキュメントを選択してください。");
			return false;
		}

		if(cmSelected =="" ){
  			alert("コマンドを選択してください。");
  			return false;
		}else if(cmSelected =="View" ){


//画面操作2　のコンボボックス選択で処理分岐のため　該当部分のみ抜粋
		}else if(cmSelected =="Print" ){
			if(confirm('～印刷画面を表示します。')) {
				var queryStr = "";
				$.each(checkedPrItemsValue,function(i,k){

					if(i > 0){
						queryStr = queryStr.concat(",", "", k);
						}else{
						queryStr = queryStr.concat("&", "id=", k);
					}
				})

				var urls= "/adter".concat('/common/multiViewOne?approval=false&mode=print',queryStr);

				window.showModelessDialog(urls, this, "dialogWidth:800px; dialogHeight:900px; resizable:yes; scroll:no;maximize:yes;minimize:yes");
			}

				var urls= "/adter".concat('/common/multiViewOne?approval=false&mode=view',queryStr);

				window.showModelessDialog(urls, this, "dialogWidth:800px; dialogHeight:900px;resizable:yes; scroll:no;maximize:yes;minimize:yes");
//			}