There are many samples on the web that will do these kinda random string values. @Unique would not create a secure sting for me as it always starts with same 3 -4 letters.
i have been using this one for some time. Am not the original author of this code but i have made some modifications to it to make it fit my app.
I use this code mainly to give people access to Documents / files based on URL that they get by email.
Dim length As Integer
Dim ch,x,y,i As Integer
Dim randomvalue As Integer
length = 10
value = “”
For i = 1 To length
ch = CInt(Round(2 * Rnd() + 1,0))
Select Case ch
randomvalue = CInt(Round(25 * Rnd() + 65,0))
randomvalue = CInt(Round(25 * Rnd() + 97,0))
randomvalue = CInt(Round(9 * Rnd() + 48,0))
If randomvalue = 108 Or Randomvalue = 49 Or Randomvalue = 48 Or Randomvalue = 79 Then
value = value + Chr$(randomvalue)
GenerateRandomAccressCode = value
For more complex random solutions try http://www.random.org