[VB.net]Evitare ripetizione numero con random

[Gian01]

Scusate se non ho seguito il consiglio di nessuno di voi... Ho ricominciato tutto da capo e ce l'ho fatta

Public Function Sort()
        SoartedNum = Random.Next(1, DefinitivePlayer)
        If PrecNum <> 0 Then
            If PrecNum = SoartedNum Then
                RepeatSort()
            Else
                SoartedPlayer.Text = "Giocatore " & SoartedNum
                SelObbligo.Enabled = True
                SelVerita.Enabled = True
            End If
        End If
        PrecNum = SoartedNum
    End Function


    Public Function RepeatSort()
        SoartedNum = Random.Next(1, DefinitivePlayer)
        If PrecNum <> 0 Then
            If PrecNum = SoartedNum Then
                Sort()
            Else
                SoartedPlayer.Text = "Giocatore " & SoartedNum
                SelObbligo.Enabled = True
                SelVerita.Enabled = True
            End If
        End If
        PrecNum = SoartedNum
    End Function

Quando premo Sorteggia parte la funzione Sort