Добавление пользовательского примитива в ModelSpace через VBA

Как добавить Свой объект в ModelSpace через VBA?
Создал пользовательский объект и COM Wrapper для него.
Используя VBA хочу добавить мой объект в model space, получаю сообщение: “Run-time error ‘429’: ActiveX component can’t create object”
Попытался таким же способом добавить стандартный Автокадовский примитив:
Public Sub test()
   Dim circleObj As AcadCircle
   Set circleObj = ThisDrawing.ModelSpace.AddCustomObject(AcDbCircle)
End Sub
Получил туже самую ошибку (((
Что я делаю не так?