Visual Basic - Generar numeros aleatorios

Hola!!!

Necesito generar numeros aleatorios en un rango pero que no se repitan, por ejemplo tengo 6 personas y a cada una de ellas le tengo que asignar un numero entre 1 y 8 como hago para que no les toque un mismo numero a varias personas.

podria ir revisando si el numero ya se genero y seguir generando hasta que de uno que no exista, pero me imagino que debe haber una forma mas eficiente.

Gracias

Reynaldo: La técnica que describís es la que se utiliza. Quizá haya un control que efectúe una operación similar, pero internamente hace eso. A lo sumo podés guardarlos en una cadena con un separador y utilizar la función instr para buscarlos. Por ejemplo

Private CadenaAleatoria 'a Nivel módulo

Private sub GenerarNumero
Dim n as long
Do
n=int(255*rnd + 1)
Loop Until (ExisteElNumero(n)=false)
CadenaAleatoria=CadenaAleatoria & "#" & n & "#"
End sub

Private Function ExisteElNumero(byval n as long) as boolean
ExisteElNumero=instr(1,CadenaAleatoria,"#" & n & "#",vbTextCompare)>0
End function

Seguramente guardar los valores en una matríz y recorrerla es más económico

Saludos Ruri

te envio ejemplo atu correo