Declare Function CoCreateInstance Lib "ole32.dll" _
(ByRef rclsid As Byte, _
ByVal pUnkOuter As Long, _
ByVal dwClsContext As Long, _
ByRef riid As Byte, _
ByRef ppv As Any) As Long

Declare Function CLSIDFromString Lib "ole32" _
(ByVal lpsz As Any, _
ByRef pclsid As Byte) As Long
Public Function ObjectCreate(CLSID As String, IID As String) As Object

Dim myObj As Object
Dim IID_C1(15) As Byte
Dim IID_C2(15) As Byte

Call CLSIDFromString(StrPtr(CLSID), IID_C1(0))
Call CLSIDFromString(StrPtr(IID), IID_C2(0))

If Not (CoCreateInstance(IID_C1(0),0&,CLSCTX_SERVER,IID_C2(0), myObj) = 0&) Then

Set myObj = Nothing

End If

Set ObjectCreate = myObj

End Function

Private Sub Кнопка1_Click()
Dim CLSID As String, IID As String, myObj As Object

CLSID = "{5E4D3816-8A1C-4900-BE1B-C79F878035E8}"
IID = "{AB634001-F13D-11D0-A459-004095E1DAEA}"

Set myObj = ObjectCreate(CStr(CLSID), CStr(IID))
...
End Sub

Получаю : CoCreateInstance = 0& , в пошаговом режиме Access вываливатся...

//V7 AddIn 1.0 Type Library
//Version: 1.0
AddInLib;
GUID = {4F0D4571-0E7B-11D1-A486-004095E1DAEA};


//GodexEZPL Class
CoClass AddIn;
GUID = {5E4D3816-8A1C-4900-BE1B-C79F878035E8};

//IInitDone Interface
Interface IInitDone;
GUID = {AB634001-F13D-11D0-A459-004095E1DAEA};
//method Init
function Init(pConnection: IDispatch): HResult; stdcall;
//method Done
function Done: HResult; stdcall;
//method GetInfo
function GetInfo(out pInfo: ^SafeArray): HResult; stdcall;

//ILanguageExtender Interface
Interface ILanguageExtender;
GUID = {AB634003-F13D-11D0-A459-004095E1DAEA};