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

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

Помогите, пожалуйста. Это код программы который должен считать сумму порядковых номеров букв слова, введённого пользователем. Но при вводе букв в Textbox1, не выводится значение в Textbox2. В чем проблема?

Private Sub Form_Load()
   Text2.Locked = True
End Sub
Private Sub Text1_Change()
  Dim a As String, num As Integer, i As Integer
  a = Text1.Text
  For i = 1 To Len(a)
    num = num + Letter_Number(Mid(a, i, 1))
  Next i
  Text2.Text = CStr(num)
End Sub
Private Function Letter_Number(a As String) As Integer
    Letter_Number = InStr(1, "абвгдеёжзийклмнопрстуфхцчшщъыьэюя", LCase(a))
End Function
 
End Sub

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

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

                            Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 8 Or KeyAscii >= 192 And KeyAscii <= 221 _
Or KeyAscii >= 224 And KeyAscii <= 255) Then KeyAscii = 0
End Sub
                        