Evitare codice numerico random doppio

[orcim]

Ciao a tutti.

Come posso evitare che questa funzione che genera un numero random, restituisce sempre una combinazione di numeri diversa ???

La combinazione generata è memorizzata in un db mysl.

Function genera(Max, Min, MaxChar)
	Dim codice, cifra
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 
	genera = cifra
End Function 

strVar = lcase(genera(91, 48, 3))

Grazie--