my $registerIndex = Win32::OLE::Variant::Variant(Win32::OLE::Variant::VT_I2|Win32::OLE::Variant::VT_BYREF,0);