numero casuale in un range di valori

[accozzaglia]

vorrei generare un numero casuale all'interno di un range da accodare all'istruzione rs.move del recordset, lo script è già molto complesso e cerco una funzione il più breve possibile.

Grazie per l'aiuto

[Enrique_Rojas]

'Generazione di un numero casuale
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 

'Nome temporaneo
'5 = numero caratteri di cui è composta
temp_file = lcase(genera(91, 48, 5))