Сколько раз строка-образец входит в строку, в которой её надо найти?

[Vja4eslav]

Здравствуйте, уважаемые форумчане! Я в VBA новичок- самоучка, специального образования нет.
Пытаюсь решить вопрос: как посчитать - сколько раз строка, которая является образцом для поиска, содержится в строках, в которых её надо найти.
Пытался решить задачу с помощью InStr и InStrRev, но не получается. Повторюсь, что в VBA я самоучка.
Может ли кто-нибудь помочь: подсказать какую- нибудь функцию, которой я наверняка не знаю или найти решение ещё каим- нибудь способом.
Файл с примером прилагаю

[Hugo121]

Sub tt()
    Dim i&, j&, s$, ss$
    For i = 1 To 3
        s = Cells(i, 1)
        ss = Cells(i, 4)
        j = (Len(ss) - Len(Replace(ss, s, ""))) / Len(s)
        Cells(i, 2) = j
    Next
End Sub

[Казанский]

То же формулой:

=(ДЛСТР(D1)-ДЛСТР(ПОДСТАВИТЬ(D1;A1;"")))/ДЛСТР(A1)

[nilem]

UDF

Function podschet(str As String, rng As Range) As Long
Dim r As Range, s, j&
For Each r In rng
    s = Split(r, str): j = j + UBound(s)
Next
podschet = j
End Function

[Vja4eslav]

Большое спасибо!