Give this a whirl... Note Select Tools - References - Windows Script Host
Object Model

'requires reference to "Windows Script Host Object Model"
Public Sub MessageTest()
Dim SH As IWshRuntimeLibrary.WshShell
Dim Res As Long

Set SH = New IWshRuntimeLibrary.WshShell
Res = SH.Popup(Text:="Click Me", secondstowait:=2, _
Title:="Hello, World", Type:=vbOKOnly)

End Sub
--
HTH...

Jim Thomlinson


"pgarcia" wrote:

I have the following code but I am missing the timeout function, help!

MsgBox "The update is now complete.", vbInformation, "NAME"

I just want to have it up for around 5-10 sec.

Thanks