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