Use Visual Basic 6.0. Copy the code straight into a new project all by itself. It works without error.

If whatever you're using (which can't be VB6.0) doesn't like my integer divide operator, then use this instead:

change this:

Password = Password & Mid(Chars, ((Rnd() * (Len(Chars) - 1)) \ 1) + 1, 1)

to this:

Password = Password & Mid(Chars, Int(Rnd() * (Len(Chars) - 1)) + 1, 1)
_________________________
Domain Registration, Hosting, Management
http://www.dollardns.net