R>catch(_com_error &e)
R>{
R>    MessageBox(0, e.Source()+" "+e.Description(), "Ошибка", MB_OK);
R>}
R>

    catch(_com_error *e)
    {
        CString Error = e->ErrorMessage();
        AfxMessageBox(e->ErrorMessage());
    }
    catch(...)
    {
        MessageBox(_T("Исключение не обработано"));
    }