14-08-2008, 12:26 PM
[quote="Joost"][code]' Prevent Dupeing
For i = 1 To Len(Name)
n = Asc(Mid(Name, i, 1))
IfNot (n >= 65 And n = 97 And n = 48 And n
For i = 1 To Len(Name)
n = Asc(Mid(Name, i, 1))
IfNot (n >= 65 And n = 97 And n = 48 And n