как возвращать код ошибок

Всем привет, нужно при возникновении ошибок, не выводить окно обработчика ошибок, а сразу завершить приложение с определённой ошибкой. Пытался использовать on error но так и не разобрался как выполнять блоки программы при ошибках, вот мой код

if Wscript.Arguments.Count >= 3 then
    Dim request
    Set request = CreateObject("MSXML2.XMLHTTP")
    request.open "GET", "https://api.telegram.org/bot" + Wscript.Arguments(0) + "/sendMessage?chat_id=" + Wscript.Arguments(1) + "&text=" + Wscript.Arguments(2), False '(1)
    request.send
    WScript.Quit(request.Status)
end if

нужно вывести к примеру ошибку 0