自動的に消えるメッセージボックス

Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
WSH.Popup "Message", 2, "Title", vbInformation
Set WSH = Nothing

※2秒後に消えます。vbInformationは表示するアイコンです。