Generate random alphanumeric string with specified 3rd character

[sharky12345]

Is there a way I can generate a random alphanumeric string but with the 3rd, 10th and 17th characters having been specified?

My current string looks like this;

3HDDGF-3U0HB4-CT7GYB

The 3rd, 10th and 17th characters will be stored as variables probably, though yet to do that part.

 

[Eric W]

Are you looking for a formula, or VBA?

 

[sharky12345]

Blimey, that was a quick response!

VBA please Eric.....

 

[Eric W]

How about:

Public Function RandString(ByVal pattern As String)
Dim i As Long, MyChars as String

     MyChars = "01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Randomize
    For i = 1 To Len(pattern)
        If Mid(pattern, i, 1) = "?" Then Mid(pattern, i, 1) = Mid(MyChars, Int(Rnd() * Len(MyChars)) + 1, 1)
    Next i
    RandString = pattern

End Function

You'd call it like this:

str1 = RandString("??x??????y??????z")

Put the fixed characters where you want them, and question marks everywhere else. You can probably see how to adapt it if needed. Let me know if you have questions.

 

[sharky12345]

Great!

I'm going to have a play with it and let you know how I get on.

Cheers Eric.