Io ho pensato a qualcosa del genere:
codice:
        Dim rnd As New Random
        Dim numeri(1) As Integer
        Dim risultato As Integer

        numeri(0) = rnd.Next(0, 50)
        numeri(1) = rnd.Next(100, 150)
        risultato = rnd.Next(0, numeri.Count)

        Console.WriteLine(numeri(risultato).ToString)
Altrimenti con un ciclo puoi riempire un arraylist con i tuoi valori e usare solo la riga "risultato = ecc."
ciao