Make ObjectVariableNotSetInpection only handle single RHS variables in the single variable RHS case

Closes #4318

The problem was that the case picked up the first simple name subexpression, which is quite often the member part of a member access expression. Now, the case verifies first that the simpleNameExpr on the RHS is all there is in the expression.

Author: MDoerner

Rubberduck.CodeAnalysis/Inspections/Concrete/VariableRequiresSetAssignmentEvaluator.cs

@@ -96,8 +96,9 @@ public static bool RequiresSetAssignment(IdentifierReference reference, IDeclara
             var project = Declaration.GetProjectParent(reference.ParentScoping);
             var module = Declaration.GetModuleParent(reference.ParentScoping);
 
+            //Covers the case of a single variable on the RHS of the assignment.
             var simpleName = expression.GetDescendent<VBAParser.SimpleNameExprContext>();
-            if (simpleName != null)
+            if (simpleName != null && simpleName.GetText() == expression.GetText())
             {
                 return declarationFinderProvider.DeclarationFinder.MatchName(simpleName.identifier().GetText())
                     .Any(d => AccessibilityCheck.IsAccessible(project, module, reference.ParentScoping, d) && d.IsObject);

RubberduckTests/Inspections/ObjectVariableNotSetInspectionTests.cs

@@ -483,6 +483,24 @@ Dim bar As Variant
             AssertInputCodeYieldsExpectedInspectionResultCount(input, expectResultCount);
         }
 
+        [Test]
+        [Category("Inspections")]
+        public void ObjectVariableNotSet_ComplexExpressionOnRHSWithMemberAccess_ReturnsNoResult()
+        {
+
+            var expectResultCount = 0;
+            var input =
+                @"
+Private Sub Test()
+    Dim foo As Variant
+    Dim bar As Collection
+    Set bar = New Collection
+    bar.Add ""x"", ""x""
+    foo = ""Test"" & bar.Item(""x"")
+End Sub";
+            AssertInputCodeYieldsExpectedInspectionResultCount(input, expectResultCount, new[]{"VBA.4.2"});
+        }
+
         [Test]
         [Category("Inspections")]
         public void ObjectVariableNotSet_LSetOnUDT_ReturnsNoResult()