my $array_size = Win32::OLE::Variant->new(VT_I4|VT_BYREF, 20);