Enumeration values used as method parameters or default parameter values trigger variable code inspections

[FullValueRider]

Rubberduck version information

Version 2.5.2.5958

OS: Microsoft Windows NT 10.0.19043.0, x64
Host Product: Microsoft Office x64
Host Version: 16.0.14228.20226
Host Executable: WINWORD.EXE

Description
Enumeration values used as parameters or as default values for method parameters are triggering the following code inspections

• UnassignedVariableUsageInspection
• UndeclaredVariableInspection
• VariableNotAssignedInspection

The affected public enumerations sit in Class definitions. Moving the enum declaration to a Module eliminates the code inspections.

[MDoerner]

This very much seems to be an issue with the resolution of enumerations in class modules. They are a bit strange in VBA since they actually work like enumerations in procedural modules, i.e. the scoping is different from that for everything else in class modules.

I will have a look into this.

[MDoerner]

Could you give a code example of what exactly you mean by used as parameters or as default values for method parameters? With the interpretations I could come up with, I do not get any result for UndeclaredVariableInspection.

One more question: do I understand correctly that the enumeration is a public enumeration in another class module in the same project?

[FullValueRider]

Sorry, I'm away from any PC until Wednesday.

[FullValueRider]

I went back to the problematic code this morning having not looked at it for some time due to playing with TwinBasic.

With Rubberduck Version 2.5.2.5984
OS: Microsoft Windows NT 10.0.22000.0, x64
Host Product: Microsoft Office x64
Host Version: 16.0.14326.20404
Host Executable: WINWORD.EXE

the problem I was experiencing is no longer reported. For the sake of clarity (and to the best of my recollection) the short class below indicates where the inspections were being reported.

Option Explicit

Public Enum ParamError

    One
    Two
    three
    Four
    
End Enum


Public Sub ErrorWithOptionalValue(Optional ByVal ipError As ParamError = ParamError.Two) ' Paramerror.two would be highlighted

    Dim myerror As ParamError
    myerror = ipError
    
    ParameterError ParamError.three ' Paramerror.three would be highlighted

End Sub


Public Sub ParameterError(ByVal ipError As ParamError)

    Dim myerror As ParamError
    myerror = ipError
    
End Sub

I'm assuming this issue can now be closed.