Here is some code that is quick and dirty
The "intRandomNumber = Int((26 * Rnd) + 1)" produces a number from 1 to 26
and adds it to the Ascii number that is 1 less than that for "a" (97 is a).
Loop 5 time for the characters and 3 for the number from 0-9.
This has the potential to give you 11 billion different passwords. I
don't now the stats on what happens with the sequence of random numbers that
are generated since this is based on the seed of the system timer, but you
should be ok
Function xxxPassword() As String
Dim intRandomNumber As Integer
Dim strPassword As String
Dim intLoop As Integer
Randomize
For intLoop = 1 To 5
intRandomNumber = Int((26 * Rnd) + 1)
strPassword = strPassword & Chr(96 + intRandomNumber)
Next intLoop
For intLoop = 1 To 3
intRandomNumber = (Int((10 * Rnd) + 1)) - 1
strPassword = strPassword & Trim(Str(intRandomNumber))
Next intLoop
xxxPassword = strPassword
End Function
Craig Hornish