Bueno ps como estoy sin requerimiento en el trabajo, decidí pasar un código de mi camarada Hugo que publigó en su blog se trata de una elección aleatoria de uno de los equipos de fucho.
Este fué el código de mi cuate hecho en python:

#!usr/bin/python
import random

equipos = ["Santos", "Atlante", "Pachuca", "Monterrey",
"Puebla", "Indios", "Chivas", "Cruz Azul",
"Pumas", "Morelia", "America", "Tecos",
"Toluca", "San Luis", "Jaguares", "Necaxa",
"Atlas", "Tigres"]

elejido = random.randint(0,18)

print "Tu le iras ahora a: " + equipos[elejido]

Y con ayuda de millan lo pasamos a visual basic XD y asi quedó:

Dim equipos As String() = {"Santos", "Atlante", "Pachuca", "Monterrey", "Puebla", "Indios", "Chivas", "Cruz Azul", "Pumas", "Morelia", "America", "Tecos", "Toluca", "San Luis", "Jaguares", "Necaxa", "Atlas", "Tigres"}
Dim Num As Double
Dim Cadena As String

Randomize()
Num = Rnd()
Cadena = "45"


While (Convert.ToInt32(Cadena) >= 18)
Randomize()
Num = Rnd()
Cadena = Num.ToString().Substring(2, 2)
End While



Console.WriteLine("Tú le iras a: " + equipos(Convert.ToInt32(Cadena)).ToString())
Console.ReadLine()

Y pos m salió el cruz azul :(