como generar un aleatorio con nombres

[aupa]

hola muy buenas, tengo que generar aleatorios con nombres y que nose repitan, los nombres estan en fichero. ¿Como podria? he programado lo siguiente pero no se si esta bien y tampoco se seguir.
Private Sub Load()
Dim i as integer, a as integer
for i=1 to 10(hay 10 labels)
open app.path & "/primera.txt" for input as #1
label(i)= int (22*rnd)+1 (hay 22 nombres en el fichero de primera)
whike not eof (1)
line intput #1, a (lee los nombres y va poniendo de 1 en 1)

pero ya no se mas

[GeoAvila]

mira lo adecuado para que no se te repitan es usar una base de datos con un campo boolean para que cada uno que salga lo marque como ya utilizado y cuando vuelva a a hacer el random ya no te lo reconozca el mismo..

nos vemos..