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

Select case (variabile)