Random

[FinalFantasy]

Ho creato qst funzione...volevo dei vostri pareri sull'attendibilità del mio random

Public Function Rand(Precisione As Integer) As String
    Dim fattore, lung As Variant
    fattore = ((Hour(Now) * Minute(Now) * Second(Now)) + (Day(Now) * Month(Now) * Year(Now))) * Second(Now)
    If Len(fattore) <= Precisione Then
        lung = Precisione - Len(fattore)
        fattore = Precisione * lung * Left("751515736364393928145142617317252892624815964891793139749785825154677486962446832285638379", lung + Precisione)
    End If
    Rand = Right(fattore, Precisione)
End Function

Ditemi anke come ottimizzarlo al meglio...grazie