У меня есть COM-объект — сервер, который поддерживает ISupportErrorinfo. Так как проект написан на (с использованием) ATL, то возбуждаю исключение следующим образом:

    ...
    wchar_t szError[100];
    DWORD    dwError = GetLastError();    

    FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, &dwError, 0, 0, szError, 100, NULL);
    Error(szError);
    ...

или

    ...
    Error(L"VB is the most <censored> language!!!");
    ...

Теперь о VB <вырезано цензурой>.
Пытаюсь сообщить об ошибке

Sub DoItWithService()
    ...    
    On Error GoTo ErrorView
    If Not o Is Nothing Then
        ...
        ...
    End If

ErrorView:
    MsgBox Err.Description

End Sub

В итоге, если происходит ошибка, то выскакивает пустой MessageBox. Почему?
Зараннее благодарен.