Как сделать SafeArray (MFC)?

void CTableCtrl::getData(const VARIANT FAR& myData) 
{
    lNumRows = 0;
    lNumCols = 0;
    LPSAFEARRAY lpSA = V_ARRAY(&myData);
    myDataArray = new COleSafeArray(lpSA, VT_BSTR);
    myDataArray -> GetUBound(1, &lNumRows);
    myDataArray -> GetUBound(2, &lNumCols);
}

    myDataArray -> GetUBound(1, &lNumRows);

long CMfcarrayDoc::FastSort(const VARIANT FAR& vArray) 
{
    long i, j, min;
    BSTR bstrTemp;
    SAFEARRAY FAR* FAR* ppsa = NULL;
    BSTR HUGEP *pbstr;
    HRESULT hr;
    DWORD dwTimeStart; 
    LONG cElements, lLBound, lUBound;
    
    USES_CONVERSION;
 
    // Type check VARIANT parameter. It should contain a BSTR array passed by reference.
    // The array must be passed by reference it is an in-out-parameter.
    if (V_VT(&vArray) != (VT_BYREF | VT_ARRAY | VT_BSTR))
        AfxThrowOleDispatchException(1001, 'Type Mismatch in Parameter. Pass a string array by reference');
    ppsa = V_ARRAYREF(&vArray);
    // Check dimensions of array                
    if (SafeArrayGetDim(*ppsa) != 1)                 
        AfxThrowOleDispatchException(1002, 'Type Mismatch in Parameter. Pass a one-dimensional array');
        
    dwTimeStart = GetTickCount();
    
    // Get array bounds
    hr = SafeArrayGetLBound(*ppsa, 1, &lLBound);
    if (FAILED(hr))
        goto error;            
    hr = SafeArrayGetUBound(*ppsa, 1, &lUBound);
    if (FAILED(hr))
        goto error; 
    
    // Get a pointer to the the elements of the array     
    hr = SafeArrayAccessData(*ppsa, (void HUGEP* FAR*)&pbstr);
    if (FAILED(hr))
       goto error;       
    
    // Bubble sort
    cElements = lUBound-lLBound+1;   
    for (i = 0; i < cElements-1; i++)
    {
        min = i;
        for (j = i+1; j < cElements; j++)
        {   
            // NULL is a valid value for a BSTR. This code treats a NULL BSTR
            // as less than other string values.
            if (pbstr[min] == NULL)
                continue;   
            else if (pbstr[j] == NULL 
                || lstrcmp(OLE2T(pbstr[j]), OLE2T(pbstr[min])) < 0)
                min = j; 
 
        }
         
        //Swap array[min] and array[i]
        bstrTemp = pbstr[min];
        pbstr[min] = pbstr[i];
        pbstr[i] = bstrTemp;        
    }
    
    hr = SafeArrayUnaccessData(*ppsa);
    if (FAILED(hr))
       goto error;
    
    return GetTickCount()-dwTimeStart;
    
error:
   AfxThrowOleDispatchException(1003, 'Unexpected Failure in FastSort method');
   return 0;
}

SAFEARRAY FAR* FAR* ppsa = V_ARRAYREF(&vArray);

HRESULT hr = SafeArrayGetLBound(*ppsa, 1, &lLBound);

BSTR HUGEP *pbstr;
SafeArrayAccessData(*ppsa, (void HUGEP* FAR*)&pbstr);

BSTR bstrTemp = OLE2T(pbstr[i][j]);