تابع چک کردن Special Character

منبع : اینترنت 

The following function helps Excel identify if a character is a special character, like #, @, and !
Function IsSpecial(strValue As String) As Boolean
    Dim intPos As Integer
  (For intPos = 1 To Len(strValue
        (Select Case Asc(Mid(strValue, intPos, 1
            Case 33 To 47, 58 To 64, 91 To 96, 123 To 126
                IsSpecial = True
            Case Else
                IsSpecial = False
                Exit For
        End Select
    Next
End Function