помочь подправить синтаксис if ххх then sendkeys

[ribak77]

есть рабочии ОБРАЗЕЦ скрипта задача которого ждать появления окна программы с титлом "UNTITLED - NOTEPAD"
НО вместо вывода сообщения
"DA"

чтобы посылало sendkeys ESC

опыта к сожалению не хватает подправить самому заранее СПАСИБО

Set shell = WScript.CreateObject("WScript.Shell")
timeout = 10
title = "UNTITLED - NOTEPAD"
Do
If shell.AppActivate(title) Then
WScript.Echo "DA"
Exit Do
End If
If timeout = 0 Then
WScript.Echo "NET"
Exit Do
End If
WScript.Sleep 1000
timeout = timeout - 1
Loop

[Dragokas]

set shell = WScript.CreateObject("WScript.Shell")
timeout = 10
title = "UNTITLED - NOTEPAD"
Do
If shell.AppActivate(title) Then
shell.sendkeys("{ESC}")
WScript.Quit
End if
if timeout = 0 then exit do
WScript.Sleep 1000
timeout = timeout - 1
Loop
WScript.Echo "NET"