[VB.net]Evitare ripetizione numero con random

[Gian01]

E con un loop? Così funziona ma ogni tanto il numero si ripete lo stesso

Do
            SoartedNum = Random.Next(1, DefinitivePlayer)
            PrecNum = SoartedNum
        Loop Until PrecNum = SoartedNum


        SoartedPlayer.Text = "Giocatore " & SoartedNum

DefinitivePlayer è il numero di giocatori