You could also create your own seed:
Code:
   Dim Password As String
   Dim Seed As Long
   Dim x as Integer
   Temp = Time
   Seed = 0
   If Mid(Temp, 2, 1) = ":" Then
      Seed = Val(Mid(Temp, 1, 1)) + Val(Mid(Temp, 3, 1)) + Val(Mid(Temp, 4, 1)) + Val(Mid(Temp, 6, 1)) + Val(Mid(Temp, 7, 1))
   Else
      Seed = Val(Mid(Temp, 1, 1)) + Val(Mid(Temp, 2, 1)) + Val(Mid(Temp, 4, 1)) + Val(Mid(Temp, 5, 1)) + Val(Mid(Temp, 7, 1)) + Val(Mid(Temp, 8, 1))
   End If
Then you could:
Code:
   For x = 1 To Seed
      'Your process here using the Rand function
   Next x
I use this when generating truly random passwords. You can reseed anytime using the system time, and then just loop through the process the number of seed time using your random function in the loop.

------------------
Boothman
There is a war out there and it is about who controls the information, it's all about the information.


[This message has been edited by Boothman_7 (edited 01-18-2000).]