Нужно, чтобы Excel распознавал строчные и прописные буквы в конкретной задаче

[LLIMuT]

Добрый день.
В моей задаче каждой букве присвоено числовое значение для строчных и прописных букв эти значения разные.
На этом форуме попался похожий пример, где в одной ячейке набирается текст, а последующих ячейках отображаются числовые значения каждой буквы.
Все, вроде, здорово, но для меня критичны строчные и прописные буквы у которых разные числовые значения.
Прикрепил пример.
Прошу помочь.

[IgorGO]

так шифр никакой шпион не разгадает!

[doober]

Классного макроса в файле не нашел
Функция вам в помощь,определяет числовое значение одного символа.
Цифры в шоу не участвуют.

Function Рейтинг(X) As Double
    Symb = Array(32, 192, 193, 194, 195, 196, 197, 198, _
                 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, _
                 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, _
                 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231)

    RT = Array(0.9, 0.95, 0.9, 0.9, 0.8, 1.05, 0.85, 1.2, _
               0.85, 0.95, 0.95, 0.9, 0.9, 1.1, 0.95, 1#, 0.95, 0.9, _
               0.9, 0.85, 0.9, 1.1, 0.9, 1#, 0.8, 1.25, 1.3, 0.95, 1.15, _
               0.9, 0.9, 1.3, 0.9, 2#, 2#, 2#, 2#, 2#, 2#, 2#, 2#)
    For n = 0 To UBound(Symb)
        If Asc(X) = Symb(n) Then
            Рейтинг = RT(n)
            Exit Function
        End If
    Next

End Function

[LLIMuT]

Воспользовался подсказкой IgorGO.
Но, к сожалению, выдаются ошибки цифрах, пробеле и знаках препинания.
Макрос doober пока не заработал, возможно потому, что я с макросами не очень лажу.
Как же научить excel воспринимать цифры и знаки?

[doober]

Сообщение от LLIMuT

Макрос doober пока не заработал, возможно потому, что я с макросами не очень лажу.
Как же научить excel воспринимать цифры и знаки?

Плохо,надо дружить.
UDF вводите формулой массива