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

Question

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

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

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