usa l'istruzione select case. la sintessi è questa:

Select case c
case 1: 'Istruzioni vengono eseguite se c=1
istruzioni...
case 2: 'Istruzioni vengono eseguite se c=2
istruzioni...
case 3: 'Istruzioni vengono eseguite se c=3
istruzioni...
case else
'Istruzioni vengono eseguite se c non è nessuno dei valori testati
istruzioni...
end select