foreach (var candidate in candidates)
{
    var usedMembers = ((ClassModuleDeclaration) candidate.AsTypeDeclaration).Members
        .Cast<ModuleBodyElementDeclaration>().Where(member => member.References.Any(usage =>
                                                                  usage.Context is VBAParser.MemberAccessExprContext &&
                                                                  candidate.References.Any(access => access.Context == usage.Context)))
        .ToList();

    if (!usedMembers.Any() || usedMembers.GroupBy(member => member.InterfaceImplemented).Count() > 1)

Option Explicit
Private mValue As Boolean

'Doesn't matter if this is commented out or not:
'
'Private Sub Class_Initialize()
'
'End Sub

Private Sub Class_Terminate()
'
End Sub

Public Property Get TheValue() As Boolean
    TheValue = mValue
End Property

Public Property Let TheValue(ByVal value As Boolean)
    mValue = value
End Property

Option Explicit

Public Function CreateStoringClass(ByVal value As Boolean) As StoringClass
    Dim result As StoringClass
    Set result = New StoringClass
    result.TheValue = value
    Set CreateStoringClass = result
End Function


' Problem with Office 2013 64-Bit (incl. 2018-09, 15.0.5045.1000):
' This line of code works wrong:
' If Not Factory.CreateStoringClass(VALUE_TO_TEST).TheValue) Then

' Remark:
' The terminator in "StoringClass" causes this behaviour (even if it is empty).
' When it will be removed or commented out, it runs well!

Sub ShortTest()
    Const VALUE_TO_TEST As Boolean = True
    Debug.Print "Value to check: " & VALUE_TO_TEST

    Dim result As StoringClass
    Set result = CreateStoringClass(VALUE_TO_TEST)
    If result.TheValue <> VALUE_TO_TEST Then
        Debug.Print "This is wrong"
    Else
        Debug.Print "This is correct"
    End If
End Sub

Sub ShortTest()
    Const VALUE_TO_TEST As Boolean = True
    Debug.Print "Value to check: " & VALUE_TO_TEST

    'Dim result As StoringClass
    'Set result = CreateStoringClass(VALUE_TO_TEST)
    If CreateStoringClass(VALUE_TO_TEST).TheValue <> VALUE_TO_TEST Then
        Debug.Print "This is wrong"
    Else
        Debug.Print "This is correct"
    End If
End Sub

Sub FooBar(ByRef x As Foo)
    x.SomeIBarMethod
    Set x = New Foo
End Sub

No Class_Terminate handler, no local variable: OK
With Class_Terminate handler, no local variable: terminatingSurprise!
No Class_Terminate handler, with local variable: OK
With Class_Terminate handler, with local variable: OK
terminating

git remote add upstream github.com/rubberduck-vba/Rubberduck.git
git fetch upstream
git checkout next
git merge upstream/next

Option Explicit
Private mValue As Boolean

Private Sub Class_Initialize()
    Debug.Print "Initializing"
End Sub

Private Sub Class_Terminate()
    Debug.Print "Terminating"
End Sub

Public Property Get TheValue() As Boolean
    Debug.Print "Accessing TheValue"
    TheValue = mValue
End Property

Public Property Let TheValue(ByVal value As Boolean)
    Debug.Print "Setting TheValue"
    mValue = value
End Property

Value to check: True
Initializing
Setting TheValue
Accessing TheValue
Terminating
This is wrong

Option Explicit
Private mValue As Boolean
Private instance As Integer

Private Sub Class_Initialize()
    Static ctor As Integer
    ctor = ctor + 1
    instance = ctor
    Debug.Print "Initializing " & instance
End Sub

Private Sub Class_Terminate()
    Debug.Print "Terminating " & instance
End Sub

Public Property Get TheValue() As Boolean
    Debug.Print "Accessing TheValue " & instance
    TheValue = mValue
End Property

Public Property Let TheValue(ByVal value As Boolean)
    Debug.Print "Setting TheValue " & instance

Value to check: True
Initializing 1
Setting TheValue 1
Accessing TheValue 1
Terminating 1
This is wrong

Value to check: True
Initialized
Setting the value
Getting the value
Getting the result
Terminated
This is correct

Function ShortResult() As Boolean
    Debug.Print "Getting the result"
    ShortResult = True
End Function

Sub ShortTest1()
    Const VALUE_TO_TEST As Boolean = True
    Debug.Print "Value to check: " & VALUE_TO_TEST

    If CreateStoringClass(VALUE_TO_TEST).TheValue <> ShortResult Then
        Debug.Print "This is wrong"
    Else
        Debug.Print "This is correct"
    End If
End Sub

Value to check: 42
Initializing
Setting TheValue
Accessing TheValue
Terminating
This is wrong

'IFoo.cls
Option Explicit

Public Sub Bar()
End Sub

'Class1.cls
Option Explicit
Implements IFoo

Private Sub IFoo_Bar()
    'todo
End Sub

Implements IBar

Public Property Get Bar() As Long
End Property

Public Property Let Bar(ByRef rhs As Long)
End Property

Private Property Get IBar_Bar() As Long
End Property

Private Property Let IBar_Bar(ByRef rhs As Long)
End Property

Dim x As IBar
Set x = New Foo  '<-- Implicit cast.

[
  uuid(00020820-0000-0000-C000-000000000046),
  helpcontext(0x0002a410)
]
coclass Worksheet {
    [default] interface _Worksheet;
    [default, source] dispinterface DocEvents;
};

Sub Testing()
    Dim underTest As Foo
    underTest.Bar = 42
    Debug.Print underTest.Bar
End Sub

        [Test]
        [Category("Inspections")]
        public void ReferenceCountIsLegit()
        {
            const string inputCode =
                @"Sub Testing()
    Dim underTest As Foo
    Set underTest = New Foo
    underTest.Bar = 42
    Debug.Print underTest.Bar
End Sub
";

            using (var state = ArrangeParserAndParse(inputCode))
            {
                var declaration = state.AllUserDeclarations.FirstOrDefault(x => x.IdentifierName.Equals("underTest"));

                Assert.AreEqual(4, declaration.References.Count());

An exception of type 'NUnit.Framework.AssertionException' occurred in nunit.framework.dll but was not handled in user code
  Expected: 4
  But was:  2

            if (e.Character != '\b' && !result.CaretLine.EndsWith($"{pair.OpeningChar}{pair.ClosingChar}"))
            {
                // VBE eats it. just bail out.
                return null;
            }

Me.Range ("|")

Attribute VB_Name = "Module1"
'@Folder("Foo")
Option Explicit

Public Sub PrintTest()
    Debug.Print "Test"
End Sub