SafeArrayGetElement - вызывает утечку памяти

int main()
{
 
for(int i=0; i<1000; i++)
{
     My_Get_Range(); //Вызываю функцию
}
 
}

void My_Get_Range()
{
//Читаю данные из Ексель
 
......
 
// Создаем Variant массив, куда будет записаны данные из нужного диапазона ексель: -------------------------------------
        
VARIANT arr;
arr.vt = VT_ARRAY | VT_VARIANT;
    {
        SAFEARRAYBOUND sab[2];
        arr.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
    }
//------------------------------------------------------------------------------------------------------------------------------------------
 
 
AutoWrap(DISPATCH_PROPERTYGET, &arr, pXlRange, (LPOLESTR)L"Value", 0); // Вызываем AutoWrap с MSDN`а
 
 
VARIANT v;
VariantInit(&v); // переменная куда будем записывать/доставать элемент из массива arr
 
 
 
 
for (int i = 0; i < 1000000; i++)
    {
 
        long indexes[2] = { 1,  1 };
 
        SafeArrayGetElement(arr.parray, indexes, &v); // получим указанный элемент по индексу из arr в переменную v
 
        BSTR ival_bstr = v.bstrVal;
        string Finaly_value;
 
        Finaly_value = _com_util::ConvertBSTRToString(ival_bstr); //Тут значение string взятой по индексу 1,1 из массива arr
    }
 
 
    pUnk->Release();
    pXlRange->Release();
    pXlSheet->Release();
    pXlApp->Release();
 
    VariantClear(&arr);
    VariantClear(&v);
 
    CoUninitialize();
}

       Finaly_value = _com_util::ConvertBSTRToString(ival_bstr); //Тут значение string взятой по индексу 1,1 из массива arr
VariantClear(&v);
    }

long indexes[2] = { 1,  1 };
 
_variant_t v;       
    SafeArrayGetElement(arr.parray, indexes, &v); // получим указанный элемент по индексу из arr в переменную v
 
    string Finaly_value;
 
    Finaly_value = _com_util::ConvertBSTRToString(v.bstrVal); //Тут значение string взятой по индексу 1,1 из массива arr

char *psz = _com_util::ConvertBSTRToString(V_BSTR(&v)); //Тут значение string взятой по индексу 1,1 из массива arr
 Finaly_value = psz;
 delete[] psz;