Script stopper ikke automatisk

Jeg bruger nedenstående til at avikle et asp script med scheduleren. Men når script køres promtes man får et "OK" inden scriptet afsluttes. Kan man ikke ungdå det, da jobbet ellers ikke afsluttes ordentligt?

Sub MyASPJob()
 
    Dim oXMLHttp
    Dim sURL
                               
      on error resume next

      Set oXMLHttp = CreateObject("MSXML2.XMLHTTP.3.0")
      sURL = "http://www.minside.dk/mailjob.asp"
             
      oXMLHttp.open "GET", sURL, false
      oXMLHttp.send()                 

          if oXMLHttp.status = 200 Then 
            ' Retrieve enter HTML response
            MsgBox oXMLHttp.ResponseText
          else
    ' Failed
  end if
   
Set oXMLHttp = nothing

End Sub

Call MyASPJob()