Loop med Rnd

Hjälp mej att förklara varför detta inte fungerar. Snabbt förklarat, så skall jag slumpa fram 7 st tal som inte får vara lika. Programmet skriver ut lika tal i alla fall. Jag tycker ju själv att det ska fungera

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Do
slumptal = Int((35 * Rnd) + 1)
For tal = 1 To 7
If slumptal = slump(tal) Then
Exit For
End If
varv = varv + 1
slump(varv) = slumptal Exit For
Next tal
Loop Until varv = 7

For tal2 = 1 To 7
txtSlump.Text = txtSlump.Text & slump(tal2) & ", "
Next tal2

Du måste initiera slumptalsgeneratorn med randomize varje gång du ska ta ut ett slumptal.

Ja, så enkelt det är för dem som kan!
Jag bugar och tackar!!