aleatorios no repetidos

[rugamba_87]

el programa siguiente saca numeros 144 numeros aleatorios, los escribe en un fichero de texto, lo que no he conseguido es que no me salgan repetidos. He provado con un vector e ir comprovando, pero no me sale el vector bien, me da errores, alguien me puede decir como hacerlo???

Codigo (es solo una parte, pero teneis suficiente ;)):

Private Sub Command1_Click()
Randomize
aleatorio:
Do
Numero = Int((644 * Rnd) + 1)
If Numero > 144 Then GoTo aleatorio
Exit Do
Loop
aleatorio.Text = Numero
End Sub



Private Sub Command3_Click()

Open "C:\...\...\...\...\numeros.txt" For Output As 1

Rem ............ primer
Colr = &H0&
numeroveces = Int(144 * Val(Text3.Text) / 100)
For x = 1 To numeroveces



Command1_Click
Write #1, aleatorio.Text, Colr

Next x
Close #1