Dim objShell, success, i, t
i = 1
t = " " 
Set objShell = CreateObject("WScript.Shell")
objShell.Run "notepad"
Do Until Success = True
    Success = objShell.AppActivate("Notepad")
    Wscript.Sleep 100
Loop
Wscript.Sleep 250
Do While i < 20
 objShell.SendKeys t&"I Love U Elena"
 objShell.SendKeys t&"    line # : " & i
 objShell.SendKeys "{ENTER}"
 i = i + 1
 t = t + "  "
 if i = 10 then t = ""
 Wscript.Sleep 210-(i*10) 
Loop
objShell.SendKeys "%f"
Wscript.Sleep 210
objShell.SendKeys "{DOWN}"
Wscript.Sleep 210
objShell.SendKeys "{DOWN}"
Wscript.Sleep 210
objShell.SendKeys "{DOWN}"
Wscript.Sleep 210
objShell.SendKeys "{DOWN}"
Wscript.Sleep 210
objShell.SendKeys "{DOWN}"
Wscript.Sleep 210
objShell.SendKeys "{DOWN}"
Wscript.Sleep 700
objShell.SendKeys "{ENTER}"
Wscript.Sleep 210
objShell.SendKeys "{RIGHT}"
Wscript.Sleep 1000
objShell.SendKeys "n"