Public Function IsSpecial(tmpStr As String) As Boolean
[COLOR=Green]'***********************************
'Code Courtesy of
' Paul Eugin
'**********************************[/COLOR]
Dim lLng As Long, iCtr As Long
lLng = Len(tmpStr)
If lLng = 0 Then
IsSpecial = True
Exit Function
End If
For iCtr = 1 To lLng
Select Case Asc(Mid(tmpStr, iCtr, 1))
Case 48 To 57, 65 To 90, 97 To 122
[COLOR=Green]'do nothing[/COLOR]
Case Else
IsSpecial = True
Exit Function
End Select
Next
IsSpecial = False
End Function