Simplify the IsObject()/GetObject() logic here

Change-Id: I816b15b6795b4946b1bfed0d1f6d103a6a1aba4f

basic/source/runtime/methods.cxx

@@ -2371,21 +2371,14 @@ void SbRtl_IsObject(StarBASIC *, SbxArray & rPar, bool)
     else
     {
         SbxVariable* pVar = rPar.Get(1);
-        SbxBase* pObj = pVar->GetObject();
-
-        // #100385: GetObject can result in an error, so reset it
-        SbxBase::ResetError();
+        bool bObject = pVar->IsObject();
+        SbxBase* pObj = (bObject ? pVar->GetObject() : nullptr);
 
         SbUnoClass* pUnoClass;
-        bool bObject;
         if( pObj &&  ( pUnoClass=dynamic_cast<SbUnoClass*>( pObj) ) != nullptr  )
         {
             bObject = pUnoClass->getUnoClass().is();
         }
-        else
-        {
-            bObject = pVar->IsObject();
-        }
         rPar.Get( 0 )->PutBool( bObject );
     }
 }