Code:
Public Enum SHUFFLE_TYPE_INDEX

  idx_ShuffleType_EquipRandom = 1  ' 1 Equip Random Items.
  idx_ShuffleType_EquipBest        ' 2 Prioritize Highest Level Items.
  idx_ShuffleType_EquipWorst       ' 3 Prioritize Lowest Level Item.
  idx_ShuffleType_BackpackPriority ' 4 Prioritize Backpack Items.
  idx_ShuffleType_EquippedPriority ' 5 Prioritize Equipped Items.
  idx_ShuffleType_UnequipAll       ' 6 Store All Items (go naked).

End Enum

Public Const MIN_SHUFFLE_TYPE_INDEX As Long = idx_ShuffleType_EquipRandom
Public Const MAX_SHUFFLE_TYPE_INDEX As Long = idx_ShuffleType_UnequipAll

Sub SomeSub
dim nShuffleType as SHUFFLE_TYPE_INDEX

nShuffleType = RollDie(MAX_SHUFFLE_TYPE_INDEX )

End Sub