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