Set WshShell = WScript.CreateObject("WScript.Shell") Res = WshShell.Popup("Ошибка", 10, "Title", vbAbortRetryIgnore + vbInformation + vbSystemModal + 262144 + 524288)