Se ho capito bene il tuo problema, potresti impostare tutte le variabili a False, a monte del costrutto Select Case.
Poi nel Select Case valorizzi solo i True.
Eviterai di impostare i False per dieci variabili moltiplicate per i dieci Case.