Сообщение об ошибке теперь отображается как верхний слой

Question

Я сделал программу, которая должна постоянно выводить сообщения об ошибках, а затем исчезать самостоятельно, она работает, но сообщения об ошибках (после первого) обычно находятся под текущим открытым окном, из-за чего его не видно. Как мне заставить это отображаться? Спасибо

Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")

Do Until True = False
    WScript.Sleep 3000
    objShell.Popup "Error1", TIMEOUT
Loop