Кто работал с Com Wrapper в ObjectARX?

Я пытаюсь выполнить пример в ObjectARX2002\docsamps\comsamps\AsdkSquareWrapper square.dbx и squareui.arx.
В VBA я подключил AsdkSquareLib.dll.
После пытаюсь создать AsdkSquareWrapper:
My kode:
Dim wrapper As AsdkSquareWrapper
Dim StartPt As Variant
Set wrapper = New AsdkSquareWrapper
StartPt = ThisDrawing.Utility.GetPoint(, "Get point")
Set wrapper.CenterPoint = StartPt
But error: Run-time error '70'
Permission denied
Что я делаю неправильно
Спасибо

ThisDrawing.Application.LoadArx ("AsdkSquareLib.dll")
Dim StartPt As Variant
Dim customObj As AcadObject
Set customObj = ThisDrawing.ModelSpace.AddCustomObjec("AsdkSquareWrapper")
Вроде того

Я с васиком не очень хорошо знаком :)
Вот что я делал на C++ - добавление нового Wall (ADT объект)

=== 8< ===
    CWinApp *pApp = acedGetAcadWinApp();
    if( pApp == NULL )
        return;
    IAecArchBaseApplication aecApp( pApp->GetIDispatch( FALSE ) );
    IAecArchBaseDocument aecDoc( aecApp.GetActiveDocument() );
    IAcadModelSpace *pModelSpace = NULL;
    HRESULT hRes = aecDoc.GetModelSpace()->QueryInterface( IID_IAcadModelSpace, (PVOID *)&pModelSpace );
    if( FAILED( hRes ) )
        return;
    LPDISPATCH pWallDisp = NULL;
    USES_CONVERSION;
    hRes = pModelSpace->AddCustomObject( T2OLE("AecWall"), &pWallDisp );
    if( FAILED( hRes ) )
        return;
    IAecWall wall( pWallDisp );
=== 8< ===