// Create SafeArray of VARIANT BSTRs
SAFEARRAY *pSA;
SAFEARRAYBOUND aDim[1];    // a one dimensional array
aDim[0].lLbound= 0;  // Visual Basic arrays start with index 0
aDim[0].cElements= 10;
pSA= SafeArrayCreate(VT_VARIANT,1,aDim);  // create a 1D SafeArray of VARIANTS
if (pSA != NULL) {
    long aLong[1];
    // iterate over array adding VARIANTs of type VT_BSTR
    for (long l= aDim[0].lLbound; l< (aDim[0].cElements + aDim[0].lLbound); l++) {
        VARIANT vOut;
        VariantInit(&vOut);
        vOut.vt= VT_BSTR;  //