my $array = Win32::OLE::Variant->new( VT_BSTR | VT_ARRAY, oct("0b$test") );