Dim myMessage as String Dim myDelay as Integer myMessage = "This message will self destruct in 8 seconds!" myDelay = 8 Shell "msg /TIME:" & myDelay & " " & Environ("Username") & " " & myMessage