Написать программу, которая считала бы сумму порядковых номеров букв слова, введённого пользователем - VB

Формулировка задачи:

помогите, пожалуйста! В текстовое поле 1 пользователь должен вводить символы. При этом автоматически должна считаться сумма порядковых номеров букв в ведённом слое и отображаться в текстовом поле 2. При этом текстовое поле 2 должно быть недоступно пользователю для редактирования. Определение порядковых номеров должно осуществляться в цикле (начиная с первого символа слова, затем – второй символ и т.д.). Порядковый номер определяется по русскому алфавиту (буква А – 1, буква Б – 2, В – 3, и т.д. с учётом букв Ё, Й и т.п.). Для определения порядкового номера необходимо создать новую функцию Letter_Number: Private Function Letter_Number(A As String) As Integer Аргумент A – это символ, номер которого необходимо определить. Функция возвращает переменную целого типа. Определение номера должно вызываться примерно следующим образом: N = Letter_Number(“В”) В целочисленную переменную N должно будет возвращено значение 3. При выполнении работы могут понадобиться следующие функции: 1) UCASE – переводит все символы текстовой переменной в заглавные (например, UCASE(“слОво”) = “СЛОВО”); 2) LEN – определяет количество символов в текстовой переменной (например, LEN(“Слово”) = 5); 3) MID – подстрока текстовой переменной (например, MID(“Слово”,2,1) = “л”, то есть из текстовой переменной “Слово” начиная с 3-го символа выбирается 1 символ); 4) CStr – перевод переменной в текстовый тип (например, CStr(41) = “41”, где 41 – число, а “41” – текст); 5) CInt – перевод переменной в целочисленный тип (например, CStr(“41”) = 41, где “41” – текст, а 41 – число). Также могут понадобиться следующие свойства и методы текстовых полей: 1) функция TextBox1_Change – вызывается при внесении изменений в текстовое поле 1; 2) свойство Locked – блокировка поля для ввода

Решение задачи: «Написать программу, которая считала бы сумму порядковых номеров букв слова, введённого пользователем»

textual
                            Листинг программы 
                        

                            Private Function Letter_Number(A As String) As Integer
Dim alfabet As String
    alfabet = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
    Letter_Number = InStr(1, alfabet, LCase(A))
End Function
                        