Благодарю за внимание всех откликнувшихся.
Проблема решена самостоятельно,
Для тех, кто наступит на те же грабли — баг — в VariantChangeType — НИ ОДИН ИЗ ЧЕТЫРЕХ ЕЕ ФЛАГОВ НЕ РАБОТАЕТ.
Используйте прямой доступ к полю типа:
Variant->vt= VT_ARRAY | VT_BSTR;
