Usare il select case?

Select case val(somma)
case 1
.....
case 2
....
....
....
....
case 98
....
end select

certo dovrai scrivere il codice dentro ad ogni case...ma in fase di esecuzione risparmi in cicli di esecuzione. Sicuramente è più veloce