Fehler in VBS Script Zeile 18 Zeichen 1

    a = 0
    b = 30
    EMailSite = "http://www.e-buy.at/auction/cron.php"
    Do Until a = b
    set WshShell = wscript.CreateObject("wscript.Shell")
    READYSTATE_COMPLETE = 4
    Set MeinIE = CreateObject("InternetExplorer.Application")
    Do While MeinIE.Busy
    Loop
    MeinIE.Visible = 1
    MeinIE.Navigate EMailSite
    Do While MeinIE.ReadyState <> 4
    Loop
    Set oDoc = MeinIE.Document
    wscript.sleep "4000"
    WshShell.sendkeys "%{F4}"
    wscript.sleep "500"
    MeinIE.Visible = 0
    wscript.sleep "1000"
    Set oDoc = Nothing
    Set oArea = Nothing
    Set oRng = Nothing
    Loop


    Kann mir einer erklären wo der fehler ist???