Узнать, сколько раз второе предложение встречается в первом

Private Sub Комманда1_Click()
MsgBox UBound(Split(InputBox("Предложение", "", "Наша Маша громко Маша плачет." _
& "Уронила Маша мячик. Тише Маша не плач. Не утонет Маша мячь"), "Маша"))  & " раз", 64, """" & "Маша" & """" & " встретилась"
End Sub

Function counter(Sent1 as string, Sent2 as string) As integer
   k%=0
   c%=0
   Do
       k%= Instr(k%+1,Sent1,Sent2) 
       If k%=0 then Exit do
       c%=c%+1
   Loop
   counter=c%
End function

Private Sub Комманда1_Click()
Dim S0, S, i, j
Randomize
    For j = 1 To Int(3 * Rnd + 1)
        For i = 1 To Int(5 * Rnd + 3)
        S = S & Chr(25 * Rnd + 65)
    Next i
        S = S & " "
Next j
Do
    For i = 1 To Int(5 * Rnd + 3): S0 = S0 & Chr(25 * Rnd + 65): Next i
    If Rnd > 0.5 Then S0 = S0 & " " & S & " " Else S0 = S0 & " "
Loop While Len(S0) <= 200
MsgBox "В предложении " & """" & S0 & """" & " предложение " & """" & S & """" & " встретилось " & SKOKA(S0, S) & " раз.", 64, ""
End Sub

 Function SKOKA(Stroka1, Stroka2)
        SKOKA = (Len(Stroka1) - Len(Replace(Stroka1, Stroka2, ""))) / Len(Stroka2)
 End Function