Private Declare Function GetVBDllObject Lib _
  "Dein_Pfad_zur_Dll\GetComObject.dll" ( _
    ByVal sFile As String, _
    ByVal sCLSID As String, _
    ppV As Any) As Long

Public Function GetA() As Long
    GetA = 10
End Function
 
Public Function MakeNr(ByVal a As Long, ByVal b As Long) As Long
    MakeNr = a + b
End Function

Private Declare Function GetVBDllObject Lib "D:\ActDllTest\GetComObject.dll" ( _
    ByVal sFile As String, _
    ByVal sCLSID As String, _
    ppV As Any) As Long
 
Private Sub Form_Load()
    Dim o As Object
    Dim rval As Long
    Dim clsid As String
 
    clsid = "{453C54F1-2535-4C28-B86A-14E8541309C4}"
    rval = GetVBDllObject("D:\ActDllTest\MyMath.dll", clsid, o)
 
    MsgBox o.MakeNr(11, 14)
 
End Sub