Как сделать try .. catch?

Question

[Sushkov]

Я так понял что в VBA конструкции try..catch как таковой нет. Я пробую

Function GetHTML(URL As String) As String
    Dim HTML As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .Send
        GetHTML = .ResponseText
    End With
End Function

Public Sub get_json_data()
    On Error GoTo RefErr:
        Debug.Print "========================================================="
        Debug.Print GetHTML("http://ya.ru")
RefErr:
        MsgBox "Ошибка!"
        End

но почему-то выскакивает ошибка, хотя страница загружается.

Answer 1

[Alexxander]

Так конечно! Программа ведь выполняется последовательно. Просто перед "RefErr:" надо поставить, например, "Exit Sub". А вот End в конце не нужно. Если там конец процедуры, то должно быть "End Sub".