Sub MsgBoxGoes()
'add refewrence to Microsoft Scripoting Runtime in VBE
Dim objWSH As Object
Dim var
Const cbytTIME As Byte = 2 'change duration of showing the box here
Set objWSH = CreateObject("WScript.Shell")
var = objWSH.Popup("MsgBox to go ;-)", cbytTIME, "on the fly")
Set objWSH = Nothing
End Sub