【VBA/VBScript】自動的に閉じる制限時間付きMsgBox【ゆっくり解説】

エクセルVBA/VBScriptで自動的に閉じる制限時間付きメッセージボックス、
MessageBoxTimeoutA の紹介です。
Microsoftのページ
docs.microsoft...
動画で使ったコード
oreoreki.gotdns...
#VBA #RPA

[@スギ-p6p]

いつも参考にさせていただいてます。
下記は、自分のいつも使ってるマクロです。ほとんど同じですね。。。
完全とは思いませんが、DoEvents　で良い感じがしてます。
Sub Self_Destruct_Msg(ByVal message As String)
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
' 他のイベントを処理
DoEvents
' ポップアップメッセージを表示
WSH.Popup message, 1, _
"　　このメッセージは１秒後に自動的に消滅する　", vbInformation
' オブジェクトを解放
Set WSH = Nothing
End Sub