Подсчитать количество вхождений буквы в слово

Private Sub CommandButton1_Click()
     S = TextBox1.Text
     S = Replace(S, "  ", " ")
     S = Trim(S)
     k = TextBox2
     S1 = Split(S)
     TextBox4 = S1(k - 1)
     S2 = TextBox4
     S2 = LCase(S2)
     kol = 0
     b = 1
     a = 0
     Dlina = CStr(Len(S2))
     Do
        b = InStr(a + 1, S2, "a")
        kol = kol + 1
        S2 = Right(S2, Dlina - b)
        Dlina = CStr(Len(S2))
     Loop While b = Dlina
     TextBox3 = kol
End Sub

Dlina = Len(S2)

Private Sub CommandButton1_Click()
     S = TextBox1.Text
     S = Replace(S, "  ", " ")
     S = Trim(S)
     k = TextBox2
     S1 = Split(S)
     TextBox4 = S1(k - 1)
     S2 = TextBox4
     S2 = LCase(S2)
     kol = 0
     Dlina = Len(S2)
     Do
        If InStr(S2, "а") > 0 Then
            b = InStr(S2, "а")
            kol = kol + 1
            S2 = Right(S2, Dlina - b)
            Dlina = Len(S2)
        Else
            Exit Do
        End If
     Loop
     TextBox3 = kol
End Sub

Dlina = CStr(Len(S2))

Dlina = S2

Private Sub CommandButton1_Click()
     s = TextBox1.Text
     s = Replace(s, "  ", " ")
     s = Trim(s)
     k = TextBox2
     S1 = Split(s)
     TextBox4 = S1(k - 1)
     S2 = TextBox4
     S2 = LCase(S2)
     kol = 0
     Dlina = Len(S2)
     Do
        If InStr(S2, "а") > 0 Then
            b = InStr(S2, "а")
            S2 = Right(S2, Dlina - b)
            Dlina = Len(S2)
            kol = kol + 1
        Else
            Exit Do
        End If
     Loop
     S2 = TextBox4
     S2 = LCase(S2)
     Dlina = Len(S2)
     Do
        If InStr(S2, "a") > 0 Then
            b = InStr(S2, "a")
            S2 = Right(S2, Dlina - b)
            Dlina = Len(S2)
            kol = kol + 1
        Else
            Exit Do
        End If
     Loop
     TextBox3 = kol
End Sub

Sub Тут нажатие кнопки()
If IsNumeric(TextBox1) = True Then
    MsgBox "Должна быть текстовая информация"
    TextBox1.SetFocus
    Exit Sub
End If
End Sub

Текст = "Эта теставый текст"
Текст_который_ищем = "а"
Количество_вхождений_переменной_в_строку_Текст = Len(Текст) - Len(Replace$(Текст, Текст_который_ищем, ""))

Текст = "Эта теставый текст"
Текст_который_ищем_р = "а" руская
Количество_вхождений_переменной_в_строку_Текст_р = LEN(Текст) - LEN(Replace$(Текст, Текст_который_ищем, "")) 
Текст = "Эта теставый текст"
Текст_который_ищем_анг = "а" англ
Количество_вхождений_переменной_в_строку_Текст_а = LEN(Текст) - LEN(Replace$(Текст, Текст_который_ищем, "")) 
Количество_вхождений_переменной_в_строку_Текст = Количество_вхождений_переменной_в_строку_Текст_а + Количество_вхождений_переменной_в_строку_Текст_р