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

##</code><code>##

VARIANT ReadRegisterNoWrite( LONG nDevLocation,VARIANT* nIndex,VARIANT* nValue,VARIANT*
  bAutoIncrement); 

##</code><code>##

Win32::OLE(0.1501) error 0x80020005: "Type mismatch" in METHOD/PROPERTYGET "ReadRegister" argument 3 at trial.pm line 49