下面的方法代替msgbox..
==============================================================
Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed after 2 seconds.", 2) '代替msgbox "Closed after 2 seconds"
Set WSH = Nothing
==============================================================