Не могу понять в чем трабла.

Есть exe — сервер
в его интерфесе функция

[id(2), helpstring("method Init")] HRESULT Init([in] BSTR hostName, [out, retval] long* ErrCode);

сама ф-я такая:

TDMETHODIMP CModernize::Init(BSTR hostName, long *ErrCode)
{
 *ErrCode = 3; 
 return S_OK;
}

код на клиенте:
позднее связывание, обект получаю через CoCreateInstanceEx()
...

long ErrCode=10;
pModern->Init(BSTRHostName,&ErrCode);

После этого ErrCode имеет значение 0
Где грабли?