Неправильно работает счетчик ошибок в программе проверки текста - VB

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

программа исправляет ошибки в тексте и должна считать, сколько их было, но вот проблема: ошибки исправляет, а счетчик- не правильно считает, в чем проблема или я что не понимаю?

Option Explicit
Dim k As Integer
Dim t As String
Dim s As String
Private Sub Command1_Click()
t = InputBox("Vvedite text")
Label1.Caption = t
End Sub
Private Sub Command2_Click()
k = 0
s = t
 If InStr(1, s, "чя") > 0 Then s = Replace(s, "чя", "ча"): k = k + 1
 If InStr(1, s, "щя") > 0 Then s = Replace(s, "щя", "ща"): k = k + 1
Label2.Caption = s
Label3.Caption = k
End Sub

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

textual
                            Листинг программы 
                        
                            UBound(Split(s, "чя"))