Select Code to Download

$aFields = Variant(VT_ARRAY|VT_BSTR, 1);
$aFields->Put(0, "PX_Last");

my @vals = qw(First Second Third ... Last);
$arrStr = Variant(VT_ARRAY|VT_BSTR, scalar @vals);
...
for my $val (@vals) {
    $arrStr->Put($i++, $val);
}