Here is some code for you. Note that you need to reference the project to
"Windows Script Host Object Model" (Tools - References -...)

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


"tom" wrote:

Is there a way to have a Message Box that displays a value and then
disappears after a time delay, say 2 seconds?

I would like to create a key-stroke macro which when I hit <ctrl-t for
example, the macro will run and display a result in a message box.

I'd then like the box to disappear after 2 seconds without the user having
to click on "Yes".

Thanks for the help.