$obj->GetErrorStr( Variant(VT_I4|VT_BYREF, 12345), \$errstr ); 
#Notice REFERENCE to $errstr