モーダルダイアログ（showModalDialog でポップアップしたHTML画面）をどのようにアクセスできますか？

「指定ID内のテキストを取得」ライブラリを使って、下記ポップアップされたもーたるダイアログ画面の対象を取得しようですが、うまくできない。

スクリプトも書いてみたですが、

実行する時に、shell.Windows.Count＝1　なぜでしょう？

Set shell = CreateObject("Shell.Application")

msgbox "shell.Windows.Count = "& shell.Windows.Count 

により、下記実行できない

For i = 0 To shell.Windows.Count -1

　　Set window = shell.Windows(i)

　　XXX