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