Select Case lstFlavours.SelectedItem
Case "Vanilla" Or "Chocolate" Or "Strawberry"
scoopType = BASIC_FLAVOUR
Case "Mango" Or "Bananna" Or "Grape" Or "Mint Chocolate Chip"
scoopType = PREMIUM_FLAVOUR
scoopType*txtScoops = runningTotal
End Select
Select Case lstFlavours.SelectedItem