Beh a guardare il codice potresti usare

With, Array, Select Case e volendo ce ne sono ancora di cose ...