При анализе текстового значения в ячейке, необходимо просматривать каждый символ. И если символ не является буквой или цифрой, то необходимо производить определенное действие.
Как-то можно определить, что за символ? Понятно, что можно определить по коду символа, но, может быть, есть другой способ?
Dim s As String, i As Long, v As String
s = "Проба,12.)"
For i = 1 To Len(s)
v = Mid(s, i, 1)
If IsNumeric(v) Then
Debug.Print v, "цифра"
ElseIf UCase(v) <> v Or LCase(v) <> v Then
Debug.Print v, "буква"
Else
Debug.Print v, "символ"
End If
Next i