numero già in elenco?

[Saturno83]

Io preparato questo ma non funziona! Perchè?

Do Until uguale = True
Randomize
x = Int((57 - 48 + 1) * Rnd + 48)
k = 0
uguale = False
    Do Until uguale = True Or k = 5
    k = k + 1
    If r(k) = x Then
    uguale = True
    Else
    uguale = False
    End If
    Loop
Loop

dove 5 è la dimensione del vettore...