Visual Basic - Ciclo do ... loop until? en que estoy fallando

Buenas Tardes, mi problema es que necesito seleccionar 4 numeros distintos de un conjunto de 8 posibles. Tengo otro programa el cual lo hace con 2 numeros solamente pero no se que puedo estar haciendo mal. los numeros se me repiten en algunas.

Creo q estoy fallando en el Loop Until

For i3 = 0 To 10
Do
Randomize
p1 = Int(Rnd * 8) + 1
p2 = Int(Rnd * 8) + 1
p3 = Int(Rnd * 8) + 1
p4 = Int(Rnd * 8) + 1
Loop Until (p1 <> p2 <> p3 <> p4)

List1.AddItem i3
List2.AddItem p1
List3.AddItem p2
List4.AddItem p3
List5.AddItem p4

next i

Les agradezco su ayudita si pueden.

Prueba poniendo RANDOMIZE arriba del For para que no se esté ejecutando varias veces

suerte

Siguiendo tu estilo quedaria asi:

Do
Randomize
p1 = Int(Rnd * 8) + 1 '1
p2 = Int(Rnd * 8) + 1 '2
p3 = Int(Rnd * 8) + 1 '3
p4 = Int(Rnd * 8) + 1 '4
Loop Until (p1 <> p2 And p1 <> p3 And p1 <> p4 And p2 <> p3 And p2 <> p4 And p3 <> p4)

mira te pongo una forma sencilla de generar 10 numeros aleatorios sin repeticion

Dim a(9) As Integer ' el subíndice de la matriz es cero
Dim i As Integer, j As Integer, x As Integer
Randomize
For i = 0 To 9
inicio:
' generamos un número aleatorio entre 8 y 20
x = Int((20 - 8 + 1) * Rnd + 8)
For j = 0 To i
' si el número ya existe en el array, lo descartamos
If x = a(j) Then GoTo inicio
Next j
' no existe, lo incluimos en la matriz
a(i) = x
' y lo añadimos al ListBox
List1.AddItem a(i)
Next i

Muchas gracias. me salio bien con el codigo de javier, pero lo de lolo me solucion otro problema que tenia en otra parte jeje. gracias a todos