Выполнение VB макроса в Excel c помощью COM

Проблема с запуском процедуры из созданного в Excel модуля VB.

Простейший пример :
------------------------------------------------------------

_Application * pIAppl;
_Workbook * pIWbook;
VBComponent * pVBC;

// APPID & CLSID
//**************************************
LPWSTR XLAppName;
CLSID clsid;

// Create Instance
//**************************************
XLAppName=L"Excel.Application";
CLSIDFromProgID(XLAppName, &clsid);
CoInitialize(NULL);
CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER,
IID__Application, (void**)&pIAppl);

//++++++++++++++++++++++++++++++++++++++

pIAppl->set_Visible(0,OleVariant(true));
pIAppl->set_DisplayAlerts(0,0);

pIWbook=pIAppl->Workbooks->Add(OleVariant(xlWBATWorksheet),0);
pIWbook->VBProject->VBComponents->Add( vbext_ct_StdModule,&pVBC);

pVBC->CodeModule->InsertLines(10,
WideString(" Sub vbp() "));
pVBC->CodeModule->InsertLines(20,
WideString(" ActiveCell.FormulaR1C1 =\x22 One \x22 "));
pVBC->CodeModule->InsertLines(30,
WideString(" End Sub "));

pIAppl->Run(OleVariant("vbp"));

//**********************************************************

pIWbook->Close (OleVariant(true),OleVariant(WideString("D:\\XLSHEET.XLS")));

pIAppl->Quit();

pVBC ->Release();
pIAppl->Release();


CoUninitialize();



-----------------------------------------------------------------------
модуль создается ,но не выполняется команда

pIAppl->Run(OleVariant("vbp"));

вместо построчного заполнения кода модуля , пробовал
импорт из файла , ситуация аналогичная , модуль создается
а выполнить процедуру не могу , единственное , что помогает ,
использование Auto_Open() - как имени процедуры , заставляет ее
автоматически запустится при загрузке.

Может быть я ипользую неправильный снтаксис для запуска ?

Помогите, кто знает .