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