my $var = Variant(VT_BSTR|VT_BYREF, 0);