Вбейсеке определить по коду код символа с 193 по 255. и определить по коду вид символа!

Sub simvol()
S = Cells(3, 3)
Cells(3, 4) = Chr(S)
End Sub
Sub kod()
S = Cells(3, 6)
Cells(3, 7) = Asc(S)
End Sub
Записал в VBA Excel
Чтобы увидеть программу жми Alt+F11
Смотри второе приложение. Программа различает большие и малые буквы.