my $cwidths = Variant(VT_BTSR | VT_ARRAY, "");
my $cwidths = Variant(VT_BTSR | VT_ARRAY | VT_BYREF, "");
my $cwidths = Variant(VT_VARIANT | VT_ARRAY, "");
my $cwidths = Variant(VT_VARIANT | VT_ARRAY | VT_BYREF, "");