Here is one I found in the archives
http://tinyurl.com/qgdb
Sub TimedMessage()
Const Title As String = "Self closing message box"
Const Delay As Byte = 2 ' Tps d'affichage en secondes
Const wButtons As Integer = 16 ' Boutons + icone
Dim wsh As Object, msg As String
Set wsh = CreateObject("WScript.Shell")
msg = Space(10) & "Bonjour," & vbLf & vbLf & "Nous sommes le " & Date
wsh.Popup msg, Delay, Title, wButtons
Set wsh = Nothing
End Sub


"Claude" wrote in message
...
Hi all,

Is it possible to configure the msgbox() in such a way
that a message is displayed (say for a few seconds, or
until another event takes place), without interrupting the
execution of the code?

Thanks in advance!