Excel VBA: получение ошибки или успеха с Omniture Adobe Report Builder

Я новичок в VBA, поэтому прошу прощения за глупые вопросы. Я делаю автоматизированный файл Excel со многими запросами Report Builder; это будет частью большей автоматизации. Мне нужно, чтобы (автоматически) проверялось, успешно ли завершена процедура обновления, но я не могу: - получить объект успеха в любой форме; -получить ЛЮБУЮ информацию об ошибках, которые она может вызвать. Модуль с процедурой обновления работает, я скопировал его из ответа Грега-Джея на этот вопрос: Автоматизация обновления построителя отчетов Omniture в Excel VBA

Sub Refresh()
Debug.Print ("refresh started")

'chiamata di refresh del plugIn di Abode Report Builder
Dim addIn As COMAddIn
    Dim automationObject As Object
    Dim success As String
    Set addIn = Application.COMAddIns("ReportBuilderAddIn.Connect")
    Set automationObject = addIn.Object
    success = automationObject.RefreshAllRequests(ActiveWorkbook)

    'ErrorHandler
    Dim Msg
    ' If an error occurs, construct an error message
    On Error Resume Next    ' Defer error handling.
    Err.Clear
    Err.Raise 513    ' Generate an "Overflow" error.
    ' Check for error, then show message.
    If Err.Number <> 0 Then
        Msg = "Error # " & Str(Err.Number) & " was generated by " _
                & Err.source & Chr(13) & Err.Description
        MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    End If

    Debug.Print (success)

Worksheets("Weekly SkySport- Chiamate Adobe").Range("F1").Value = "success"
Worksheets("Weekly SkySport- Chiamate Adobe").Range("D1").Value = Date

Debug.Print ("refresh completed")
End Sub