jand, my hero. You're right, of course. I actually had to use:

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

But there it is! Thank you!