vbscript - WScript を使用してエラー メッセージ ダイアログ ボックスからメッセージを読み取る

Question

問題の定義 : エラー メッセージ ダイアログ ボックスの [OK] ボタンをクリックし、ダイアログ ボックスに表示されているエラー メッセージを取得/読み取る wscript を記述します。エラー メッセージは、マクロによる Excel の検証から生成されます。

達成: メッセージボックスの「OK」ボタンをクリックできるようになりました

立ち往生: エラーメッセージを読むことができません

書かれたコード:

Set oShell = CreateObject("WScript.Shell") 

Do 
    bResult = oShell.AppActivate("Save As") 
    If bResult = True Then 
        oShell.SendKeys "{ENTER}" 
        Exit Do 
    End If 
    WScript.Sleep 500 
Loop