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

##</code><code>##

  my $arr = Variant( VT_VARIANT | VT_ARRAY, 25);