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

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