Nhờ giúp đỡ lỗi "Cannot Create ActiveX component"

[minhmee2610]

Chào các anh chị.
Em đang học cách viết thư viện .dll trên Visual Studio 22. Do còn nhiều cái chưa rõ nên khi khởi chạy trên excel có hiện lỗi này.
Các hàm sử dụng bình thường nhưng các Sub thì chưa chạy được.
Nhờ anh chị hướng dẫn giúp em cách xử lý ạ. Em cảm ơn mọi người.

Đính kèm là code trong dll. Em sử dụng excel 32bit.

Imports System
Namespace MC1
    Public Class HCN
        Public Function tinh_dien_tich_HCN(ByVal a As Integer, ByVal b As Integer) As Integer
            tinh_dien_tich_HCN = a * b
        End Function
    End Class
    Public Class SAP_gui
        Public Sub cnn_SAP()
            Dim application As Object
            Dim SapGui As Object
            Dim connection As Object
            Dim session As Object
            application = CreateObject("SAPGUI.ScriptingCtrl.1")
            SapGui = GetObject("SAPGUI")
            application = SapGui.GetScriptingEngine
            connection = application.OpenConnection("888", True)
            session = connection.children(0)
            session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "999"
            session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "10000"
            session.findById("wnd[0]").sendVKey(0)
        End Sub
    End Class
End Namespace