COM高手看看SafeArray&VARIANT问题

下面这段代码有问题吗>?
VARIANT varChunk;
SAFEARRAY *psa;
    SAFEARRAYBOUND rgsabound[1];
unsigned char uIsRead = 0x10;
unsigned char bVal[32];
BYTE *pData; memset( bVal, 0x20, sizeof(bVal) ); rgsabound[0].cElements = 10;
rgsabound[0].lLbound = 0; psa = SafeArrayCreate( VT_UI4, 1, rgsabound );
psa->cbElements = 1;
psa->cDims = 1;
psa->fFeatures = 128;
psa->cLocks = 0; for(long index=0; index<10; index++ )          
{
// pData[index] = 0x10;

if( FAILED( SafeArrayPutElement( psa, &index, &bVal[index]) ) )
{
AfxMessageBox( "Error" );
return;
}
} VariantInit( &varChunk );
varChunk.vt = VT_ARRAY|VT_UI4;
varChunk.parray = psa;