mesaj ekranının kendi kendine kaybolmasını sağlamak

[GursoyC]

Merhaba,
bir makromun en sonunda makronun çalışıp işini bitirdiğine dair aşağıdaki şekilde bir kodum var.
Bu kodu ekranda 3 saniye tutup sonra kendi kendine yok olmasını sağlamanın bir yolu var mıdır acaba? Yani illa benim ok tuşuna basmamı istemese de kendiliğinden kaybolsa.
Yardımcı olur musunuz?

MsgBox "İşlem tamam!", vbCritical, "U Y A R I"

 

[Seyit Tiken]

CreateObject("WScript.Shell").Popup "5 Saniye Sonra Kapanacak", 5

 

[GursoyC]

Çok teşekkür ederim Seyit bey, gayet güzel çalışıyor.
Saygılar,