WScript.Shell [Popup]

objectShell.Popup "メッセージ" [,タイマー(sec)] [,"タイトル"] [,ボタン+アイコン]

Dim objectShell

Set objectShell = Createobject("WScript.Shell")

objectShell.Popup "Popup、行きマース" ,3 ,"Popup起動" ,vbOKCancel+vbExclamation

objectShell = Nothing

3秒後に消去するポップアップです。