Sich selbst schließende Msgbox mit OK u. Abbrechen | Herbers Excel-Forum

Hallo,
folgenden Code habe ich gefunden, um eine MsgBox nach einer bestimmten Zeit (in dem Fall 10 Sekunden) wieder schließen zu lassen:

Sub MsgZeit()
'   Blendet eine Msgbox nach 10 Sekunden automatisch wieder aus
'   von K.Rola
'   kein Verweis notwendig
Const bytZeit As Byte = 10
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10),  _
bytZeit, "gebe bekannt...")
Set objWSH = Nothing
End Sub