Библиотека классов, написанная в VB.NET не работает в VBA - Visual Basic .NET

Option Explicit
 
Sub Main()
Dim Part As New TechnologLibrary.tchnlgPart
Dim Dim1 As TechnologLibrary.tchnlgDimension
Dim obj As Object

Set Dim1 = New TechnologLibrary.tchnlgDimension '<--в этом месте ошибка
 
Dim1.Value = 50
Dim1.Name = "Length"
Dim1.Unit.ShortName = "мм"

Part.Blank.Dimensions.AddDimension (Dim1)
 
Debug.Print Part.Blank.Dimensions.GetDimension("Length").Name & " " & Part.Blank.Dimensions.GetDimension("Length").Value & " " & Part.Blank.Dimensions.GetDimension("Length").Unit
 
End Sub

<ComClass(tchnlgDimension.ClassId, tchnlgDimension.InterfaceId, tchnlgDimension.EventsId)> _
Public Class tchnlgDimension
 
#Region "Идентификаторы COM GUID"
    ' Данные GUID обеспечивают идентификацию COM для данного класса 
    ' и его COM-интерфейсов. При их изменении существующие 
    ' клиенты потеряют доступ к классу.
    Public Const ClassId As String = "550c2a79-4617-4020-895f-797732cb0d05"
    Public Const InterfaceId As String = "8eade103-f4d6-409b-848c-01538b2c918c"
    Public Const EventsId As String = "fe3251c0-201c-455e-a00f-2fcbdcef8614"
#End Region
 
    ' В классе COM, для которого разрешено создание, должна присутствовать процедура Public Sub New() 
    ' без параметров, иначе класс не будет 
    ' зарегистрирован в реестре COM и его будет невозможно создать 
    ' посредством CreateObject.
 
    Private mDim As Double
    Private mName As String
    Private mUnit As New tchnlgUnit
 
    Public Sub New()
        MyBase.New()
        mDim = ""
        mName = ""
        mUnit = New tchnlgUnit
    End Sub
 
    Public Sub New(ByVal Value As Double, ByVal ShortUnit As String, ByVal Name As String)
        mDim = Value
        mName = Name
        If ShortUnit <> "" Then
            mUnit = New tchnlgUnit("", ShortUnit)
        End If
    End Sub
 
    Public Property Value() As Double
        Get
            Return mDim
        End Get
        Set(value As Double)
            mDim = value
        End Set
    End Property
 
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(value As String)
            mName = value
        End Set
    End Property
 
    Public Property Unit() As tchnlgUnit
        Get
            Return mUnit
        End Get
        Set(value As tchnlgUnit)
            mUnit = value
        End Set
    End Property
 
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
 
End Class