I have a much simpler form for the IsAlphaNum function:
Public Function IsAlphaNum(ByVal sString _As String) As BooleanIf Not sString Like "*[!0-9A-Za-z]*" _Then IsAlphaNum = TrueEnd Function
You can modify this function for other conditions. Simply put the acceptable characters