Shuffle Random Password

I am working on a Random Password Generator. Our requirements are that the password should contain the following:

- mixed case letters
- at least one number
- at least one "special" non-alphanumeric character

I created a UDF to do this that works. However, the way that I did this was like this:
- 1st character: special character
- 2nd character: numeric
- 3rd character: lower case
- 4th character: upper case
- rest: any alpha-numeric characters

So while they are "random", they all follow the same "pattern" for the first four characters.

What I would love to do is once I have created the random password, to "shuffle it up" or "mix it up" in random order. So something like:
$2dNKqSc
would be "shuffled" and would would return something like:
SN$qc2dK
(all the same letters, just in random order)

I was trying to do it with Arrays, but I have to admit, arrays are not my strong point. Can anyone help with the last piece? Here is my code that creates the random password.



Public Function RandomPass(myLen As Byte) As String
' Generates a random alpha-numeric password (with special characters) of specified length
' If this is stored in your personal macro workbook and not in the workbook itself, you must qualify the personal macro workbook file to use it
' i.e. =PERSONAL.XLSB!RandomPass(8).......