puoi anche inserire i numeri in una stringa separati da virgola e poi te li splitti e prendi quale ti serve...

codice:
dim numeri as string
dim numero() as string
dim numero3 as string

   numeri="1,2,3,4,5,6,7"  'lista di numeri
   numero=split(numero,",")   'li metti in un array, gli dici che deve separare i caratteri ad ogni virgola
   numero3=numero(2)   'ti da il numero con l'indice 2, cioè il numero 3
spero di essere stato abbastanza chiaro... non sono molto bravo nelle spiegazioni...