以下代码在 Windows 10 + Office 2016 (64-bit)中测试通过:
Sub MsgBoxTimer() CreateObject("WScript.Shell").Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Test"",2,""Real%20Time%20Status%20Message""))"End Sub
办不到,做一个窗体代替msgbox可行