Private Sub Form_Load()
Dim Chars As String, PassLength As Long
Randomize

Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
PassLength = 90

For X = 1 To PassLength
Password = Password & Mid(Chars, ((Rnd() * (Len(Chars) - 1)) \ 1) + 1, 1)
Next

Open App.Path & "\passwords.txt" For Append As #1
Print #1, Password
Close #1
End Sub
_________________________
Domain Registration, Hosting, Management
http://www.dollardns.net