RD should have inspection for Enum Type value is assigned without Enum member reference

[ThunderFrame]

Types declared as Enum should be assigned with Enum members and not with literal values or ambiguous member return values.

Option Explicit

Private Enum foo
  useprod = 1
  UseDev = 2
  UseUAT = 4
End Enum

Sub foo()
  Dim f As foo

  'Explicit assignments without member reference
  'This code uses the Enum, and depends upon 2 being a valid member
  f = 2
  f = GetAmbiguousFoo

  'Should be something like
  f = UseUAT
  'Or...
  f = useprod Or UseUAT
  'Or...
  f = GetFoo

End Sub

Private Function GetFoo() As foo
  GetFoo = UseUAT
End Function

Private Function GetAmbiguousFoo() As Long
  GetAmbiguousFoo = UseUAT
End Function

[ThunderFrame]

If this inspection does end up being at the Enum member level, then it will need to consider Aliases and/or bitwise usages.

Private Enum foo
  useprod = 1
  UseDev = 2
  UseUAT = 4
  UseProduction = useprod
  UseProdOrDev = useprod Or useDev
End Enum

If UseProduction is used in consuming code, but useprod is never used outside of the Enum, then UseProduction could be removed, but only if usage of UseProduction was changed to use useprod

If neither useprod nor usedev are used in consuming code, but UseProdOrDev is used, then neither useprod nor usedev are necessarily removable.