14-08-2008, 12:24 PM
[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