Una idea sería asignar a cada nombre un ID, y crear una función que generase un integer aleatorio comprendido entre n1-n2.
El código que muestro a continuación es una adaptacción del código de Guille. Échale un ojo para profundizar en la generación de aleatorios.
http://www.elguille.info/NET/dotnet/random_Next.aspxOption Strict On
Imports Microsoft.VisualBasic
Imports System
Module Module1
Dim semilla As Integer
Dim rnd As Random
Sub Main()
Dim num As Integer
semilla = CInt(DateTime.Now.Ticks)
' Para que funcione Ticks
' debes quitar la comprobación de desbordamiento de enteros
' en las propiedades del proyecto, ficha compilación, opciones avanzadas
rnd = New Random(semilla)
For i As Integer = 1 To 10
num = numeroaleatorio()
Console.WriteLine("{0:00} {1}", i, num)
Next
Console.WriteLine()
Console.WriteLine("Pulsa una tecla")
Console.ReadKey()
End Sub
Function numeroaleatorio() As Integer
Dim integro As Integer
' Prueba 1:
' El valor debe ser un integer válido,
' desde el numero 1
' hasta la numero 4
integro = (rnd.Next(1, 5))
' Devolvemos el integer generado
Return integro
End Function
End Module
End Module