QTP - WScript - Launch PopUp that closes after some time

Dim WshShell
Set WshShell = CreateObject( "WScript.Shell" )
WshShell.Popup "This is a popup that closes after 10 seconds.", 10, "MsgBox with Timer"
Set WshShell = Nothing