С++-библиотека-фреймворк для VBxx

int InStrByt(int Start, SAFEARRAY** ppSAWhere, SAFEARRAY** ppSAWhat) {
    int cntWhere = (*ppSAWhere)->rgsabound[0].cElements;
    int cntWhat = (*ppSAWhat)->rgsabound[0].cElements;
    char *pcWhere1 = (char*)(*ppSAWhere)->pvData;
    char *pcWhat1 = (char*)(*ppSAWhat)->pvData;
    char *pcWhat2 = pcWhat1 + 1;
    
    if (Start > 0) {
        if (Start < cntWhere) {
            Start = Start - 1;
        }else{ 
            return 0; 
        }
    }
    else if (Start == 0) {}
    else {
        Start = cntWhere + Start; 
        if (Start >= 0) {} else { Start = 0; }
    }
    
    char *pcEndIter = pcWhere1 + cntWhere - cntWhat;
    char *pcEndIter2 = pcWhat1 + cntWhat; //- 1;
    char cWhat1 = *pcWhat1; 
    for(char *pcWhere = pcWhere1 + Start; pcWhere <= pcEndIter; pcWhere++) {
        if (*pcWhere == cWhat1) {           
            char *pcWhere_ = pcWhere;           
            for (char *pcWhat = pcWhat2; pcWhat < pcEndIter2; pcWhat++) {
                pcWhere_++;
                if (*pcWhere_ != *pcWhat) goto Nxt;
            }
            return (pcWhere - pcWhere1) + 1;
        }
    Nxt:;
    }
    return 0;
}

LPSAFEARRAY GetRefList(SAFEARRAY** ppsavRefs) {
    LPSAFEARRAY ret = *ppsavRefs;
    *ppsavRefs = SafeArrayCreateVector(VT_VARIANT, 0, 0);
    return ret;
}
void PutRefList(SAFEARRAY** ppsavRefsDst, SAFEARRAY** ppsavRefsSrc) {
    LPSAFEARRAY psavRefsDst = *ppsavRefsDst;    
    VARIANT* pVDst = (psavRefsDst)->pvData;
    int arCnt = (psavRefsDst)->rgsabound[0].cElements;
    LPSAFEARRAY psavRefsSrc = *ppsavRefsSrc;
    VARIANT* pVSrc = (psavRefsSrc)->pvData;
    int minCnt = (psavRefsSrc)->rgsabound[0].cElements;
    if (minCnt <= arCnt) {} else { minCnt = arCnt; }
    
    for (; pVDst < pVDst + minCnt; pVDst++, pVSrc++) {
        VariantCopy(pVDst, pVSrc);
    }
}

        [entry("GetRefList"), vararg, propget]
        HRESULT __stdcall RefList([in] SAFEARRAY(VARIANT)* ArgList, [out, retval] SAFEARRAY(VARIANT)* pRet);
        [entry("PutRefList"), vararg, propput]
        HRESULT __stdcall RefList([in] SAFEARRAY(VARIANT)* ArgList, [in] SAFEARRAY(VARIANT)* pInp);

// Generated .IDL file (by the OLE/COM Object Viewer)
// 
// typelib filename: <could not determine filename>
 
[
  uuid(A97D68D5-9923-4B28-A561-1FEBA70FE8A8),
  version(1.0),
  custom(50867B00-BB69-11D0-A8FF-00A0C9110059, 9782)
 
]
library Project1
{
    // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
    importlib("stdole2.tlb");
 
    // Forward declare all types defined in this typelib
    interface _Class1;
 
    [
      odl,
      uuid(C703A32F-140A-47A7-9074-D070711AB20C),
      version(1.0),
      hidden,
      dual,
      nonextensible,
      oleautomation
    ]
    interface _Class1 : IDispatch {
        [id(0x68030000), propget, vararg]
        HRESULT TestProp(
                        [in, out] SAFEARRAY(VARIANT)* ArgList, 
                        [out, retval] SAFEARRAY(VARIANT)* );
        [id(0x68030000), propput, vararg]
        HRESULT TestProp(
                        [in, out] SAFEARRAY(VARIANT)* ArgList, 
                        [in, out] SAFEARRAY(VARIANT)* );
    };
 
    [
      uuid(CC4D6BBF-B2DA-4ADE-8D8E-1234EBC904EE),
      version(1.0)
    ]
    coclass Class1 {
        [default] interface _Class1;
    };
};