El mensaje de error ahora aparece como capa superior

El mensaje de error ahora aparece como capa superior

Creé un programa que debería seguir mostrando mensajes de error emergentes y luego desaparecer por sí solos, funciona, pero los mensajes de error (después del primero) generalmente están debajo de la ventana actual abierta, por lo que no se ven. ¿Cómo puedo hacer que esto aparezca? Gracias

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

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

información relacionada