[VB] random che non si ripeta

[Delas]

ciao. vi spiego: in vb ho una stringa e separo le parole, poi vorrei riportarle in maniera casuale ma senza che si ripetino. ho provato una robaccia ma assolutamente non funziona, ecco cosa avevo fatto:

 
Frase = Text1.Text
a = Split(Frase, " ")
Parola = a(Rnd())
Parola1 = a(Rnd())

For i = 1 To UBound(a)
    If Parola <> Parola1 Then
    Text2.Text = Text2.Text + Parola1 & " "
    Parola1 = a(Rnd())
    End If
Next i

avevo pensato di memorizzare il valore in una variabile e controllarlo a ogni ciclo...
:master: