Private Function NameGen() As String
Dim i As Long, j As Long, iChar As Long
Dim s As String
Randomize Timer
For i = 0 To MAXLEN - 1
iChar = 0
Do Until iChar > 0
iChar = Int(Rnd * 25) + 97
For j = 0 To i - 1
If iChar = Asc(Mid$(s, j + 1, 1)) Then
iChar = 0
End If
Next
Loop
s = s & Chr(iChar)
Next
NameGen = s
End Function