» Зацикливание функции в VBScript

Люди поможите !
Есть VBScript отпровляющий заданный текст в открытое окно WORDа . Т.е. Ожидает появление окна и отпровляет в него текст .
КУСОК КОДА :

function WriteWord()
WshShell.SendKeys "ТЕКСТ"
end function

Т.е. функцию вместе с методом надо зациклить , чтобы текст выводился бесконечно .
Вобщем чтобы то , что в кавычках повторялось бесконечно .

bonzai21
А что мешает применить цикл?

dim app
set app = Application

i=0
do while i = 0
WriteWord()
app.Wait(100)
loop

А конкретно к этому коду как будет выглядеть ?
Куда вставить метод Send key вместе с собственно тексто ?
Вся проблемма в том , что цикл While Do широко описан , но не понятно .
Весь код скрипта :
set WshShell = WScript.CreateObject("WScript.Shell")
KL = true

do while KL
if WshShell.AppActivate("Microsoft Word") then
WriteWord()
KL = false
end if
WScript.Sleep 3000
loop

function WriteWord()
WshShell.SendKeys "ТЕКСТ"
end function

bonzai21

dim app
set app = Application

set WshShell = WScript.CreateObject("WScript.Shell")
KL = true

do while KL
if WshShell.AppActivate("Microsoft Word") then
WriteWord()
'app.Wait(100)
DoEvents
end if
loop

function WriteWord()
WshShell.SendKeys "ТЕКСТ"
end function

Я сохранил .НЕ хочет работать . Требует "объект APPLICATION "

bonzai21
Убери все упоминания об APPLICATION. Это я пробовал имитировать DoEvents. Если так или иначе не сделать в цикле проверку на прерывание цикла, процес зависнет.