using namespace Excel;     

     CoInitialize( NULL );       
      VBIDE::_VBProjectPtr pVBprj;
      try
      {
         _ApplicationPtr pExcel("Excel.Application");
          pExcel->PutVisible( -1, true );
          _WorkbookPtr pBook  = pExcel->Workbooks->Add();
          // iieo?aai ia?aue eeno (a VBA ioia?aoey n aaeieou)
          _WorksheetPtr sheet = pBook->Worksheets->Item[1L];
 
           pVBprj->VBComponents->Import("Module1.bas");
          pBook->get_VBProject( &pVBprj );     //pVBprj == NULL
     
     //     excel->Visible[0] = true;
     
      }
catch( _com_error &er )
                         {
                              char buf[1024];
                              wsprintf(buf,"_com_error:\n"
                                             "Error\t\t: %08lX\n"
                                             "ErrorMessage\t: %s\n"
                                             "Description\t: %s\n"
                                             "Source\t\t: %s\n",
                                             er.Error(),
                                             (LPCTSTR)_bstr_t(er.ErrorMessage()),
                                             (LPCTSTR)_bstr_t(er.Description()),
                                             (LPCTSTR)_bstr_t(er.Source()));

                              AfxMessageBox(buf );
                         }
CoUninitialize();

вот.. хочю запихнуть макрос в документ эксель. неполучаетса..
pBook->get_VBProject( &pVBprj );
Вот в этой строке pVBprj == NULL.
как проинициализировать _VBProjectPtr, чтоб код работал?