ダイアログボックスをクリックしたい

Message#10 2020年11月12日(木)18時16分
From: Ao

初めまして。ご教授いただければと思います。
Webページにログインし、「全施設一括調整」をクリックするとポップアップが表示されます。
OKを押下したいのですが、素人ながら下記のコードではOKを押下することができません。
どのようにしたらいいでしょうか？

Sub IE2()

Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

objIE.Visible = True
objIE.navigate "https://～"

Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop

Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document

With htmlDoc
.getElementById("txtCmpCd").Value = Worksheets("Sheet1").Range("C3")
.getElementById("txtUserCd").Value = Worksheets("Sheet1").Range("C4")
.getElementById("txtPassWd").Value = Worksheets("Sheet1").Range("C5")
.getElementById("cmdLgn").Click

End With

Set htmlDoc = Nothing 'ログインページのHTMLをいったん破棄

Call WaitIE(objIE) '画面遷移の待機

Set htmlDoc = objIE.document 'ログイン後のページのHTMLを読み込む

'預託在庫照会をクリック
Dim obj As Variant

For Each obj In htmlDoc.getElementsByTagName("a")
If obj.innerText = "預託在庫照会" Then
obj.Click
Exit For
End If
Next

Call WaitIE(objIE) '画面遷移の待機

'全施設一括調整ボタンクリック
With htmlDoc
.getElementById("ctl00$Content$cmdAllAdj").Click

End With

Call WaitIE(objIE) '画面遷移の待機

'メッセージの確認
hWindow = FindWindow("#32770", "Webページからのメッセージ") 'FindWindowでシステムダイアログのウィンドウを探します。
PostMessage hWindow, WM_COMMAND, vbOK, 0& 'システムダイアログのOKボタンを押す

End Sub