如何用C++的SAFEARRAY到VB

CString SelectElement2(SAFEARRAY * iFilterType, BSTR * iMessage, BOOL iObjectSelectionBeforeCommandUsePossibility)
    {
        CString result;
        static BYTE parms[] = VTS_NONE VTS_PBSTR VTS_BOOL ;
        InvokeHelper(0x60050013, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms, iFilterType, iMessage, iObjectSelectionBeforeCommandUsePossibility);
        return result;
    }

//用VARIANT先封装BSTR,再用微软的方法进行转换
    //首先用SAFEARRAY包装一层
    SAFEARRAYBOUND bound[1];
    bound[0].lLbound=0;
    bound[0].cElements=1;
    SAFEARRAY *psa =SafeArrayCreate(VT_BSTR,1,bound);
    BSTR bFilter;
    bFilter =SysAllocString(L"Vertex");
    LONG i=0;
    SafeArrayPutElement(psa,(long*)&i,bFilter);


    VARIANT FAR VBpStrArray;
    VariantInit(&VBpStrArray);
    VBpStrArray.vt=VT_ARRAY|VT_BSTR;

    VBpStrArray.parray = psa;
   
    SAFEARRAY FAR *pStrArrTemp = NULL;
    long LBound;
    long UBound;
    BSTR HUGEP *pbstr;
    CString strtemp;
    USES_CONVERSION;

    pStrArrTemp = V_ARRAY(&VBpStrArray);
    SafeArrayGetLBound(pStrArrTemp,1,&LBound);
    SafeArrayGetUBound(pStrArrTemp,1,&UBound);
    SafeArrayAccessData(pStrArrTemp, (void HUGEP* FAR*)&pbstr);


    for (int i=0;i<(UBound-LBound);i++)
        strtemp+=LPWSTR(pbstr);

    cstrStatus = selSelection.SelectElement2(pStrArrTemp,NULL,FALSE);