Enum functionality is the right way to use for this issue.
Example:
Public Enum Ornaments Neclace = 10 Bangle = 20 TieClip = 30 End Enum
How to use this enum
Dim SelectedOrnament As Ornaments = Ornaments.Bangle Select Case SelectedOrnament Case Ornaments.Neclace MsgBox("Your ornament is: " & Ornaments.Neclace) Case Ornaments.Bangle MsgBox("Your ornament is: " & Ornaments.Bangle) Case Ornaments.TieClip MsgBox("Your ornament is: " & Ornaments.TieClip) Case Else MsgBox("I could not find your ornament. Sorry") End Select
source share