Как правильно подключать Reference библиотеки TLB и ActivX DLL

' Функция создаёт ровно столько каталогов, сколько надо
Public Function MakeDir(Path As String) As Boolean
    On Error GoTo Quit
    
    Dim DirPath As String
    Dim CurrentDirPath As String
    Dim DirPathPenultimate As String
    Dim IsDir As Boolean
    Dim DirAttr As Long
    Dim pos As Long
    Dim f1 As Long
    Dim f2 As Long
    Dim i As Long
    
    DirPath = Path
    
    If Right$(DirPath, 1) = "\" Then
        DirPath = Left$(DirPath, Len(DirPath) - 1) ' Убрать на конце косую черту, если есть
    End If
    
    f1 = InStrRev(DirPath, "\")
    f2 = InStr(DirPath, "\")
    
    If f1 > 0 Then
        If f1 = f2 Then ' Только одна косая черта (создаётся каталог в корне диска)
            MkDir DirPath ' Err 75 or 76
            MakeDir = True
        Else ' Несколько косых черт (создаётся каталог, глубже чем в корне диска)
            DirPathPenultimate = Left$(DirPath, f1 - 1)
            
            If Dir$(DirPathPenultimate, vbDirectory + 7) <> vbNullString Then
                DirAttr = GetAttr(DirPathPenultimate)
                
                If (DirAttr And vbDirectory) <> 0 Then ' Если предпоследний каталог в цепочке действительно существует
                    MkDir DirPath ' Создаётся только один каталог
                    MakeDir = True
                    Exit Function
                End If
            End If
            
            ' Создаётся два или больше двух каталогов сразу
            DirPath = DirPath & "\"
            pos = 1
            
            Do
                i = InStr(pos, DirPath, "\") ' Искать нужную нам строку
                
                If i > 0 Then
                    CurrentDirPath = Mid$(DirPath, 1, i - 1)
                    IsDir = False
                    
                    If Dir$(CurrentDirPath, vbDirectory + 7) <> vbNullString Then
                        DirAttr = GetAttr(CurrentDirPath)
                        
                        If (DirAttr And vbDirectory) <> 0 Then
                            IsDir = True
                        End If
                    End If
                    
                    If IsDir = False Then MkDir CurrentDirPath: MakeDir = True
                    pos = i + 1
                End If
            Loop While i > 0 ' Выполнять цикл до тех пор, пока будет найдена искомая подстрока
        End If
    End If
Quit:
End Function

Private Sub Class_Initialize()
 
End Sub

Function testfunctionCl(a)
    testfunctionCl = a + 1
End Function