Определить количество вхождений строки S1 в строку S2

[Berckyt]

Задачу нужно решить двумя способами:
1) С использованием любых функций для работы со строками
2)С использованием только функций Mid, Len, Asc, Chr
вот первый код

Private Sub CommandButton1_Click()
Dim s1, s2 As String
s1 = TextBox1.Text
s2 = TextBox2.Text
MsgBox (InStr(1, s2, s1))
End Sub

Но тут только находится номер строки, с какого s1 входит в s2, как сделать подсчет количества вхождений?
Во втором коде ступор

[viter.alex]

Что-то функций многовато. Хватит двух.

Private Sub CommandButton1_Click()
  Dim s1$, s2$, i#, Counter#
  s1 = TextBox1.Text
  s2 = TextBox2.Text
  If s1 = "" Or s2 = "" Or Len(s2) <= Len(s1) Then Exit Sub
  For i = 1 To Len(s2) - Len(s1)
    If Mid(s2, i, Len(s1)) = s1 Then Counter = Counter + 1
  Next i
  
  MsgBox "Строка «" & s1 & "» встречается в строке «" & s2 & "» " & Counter & " раз.", _
    vbOKOnly + vbInformation
End Sub

[Serge_Bliznykov]

Berckyt, ну и нахрена такое делать?!
тема продублирована:
http://www.programmersforum.ru/showthread.php?t=41891

[viter.alex]

Серж, про дубль я не знал.

[Serge_Bliznykov]

viter.alex, Да ну что Вы! К Вам никаких претензий!! Наоборот, Вы здесь "пострадавшая" сторона — если бы Вы знали про дубли, то может и не тратили время...

[viter.alex]

Сообщение от Serge_Bliznykov

viter.alex, Да ну что Вы! К Вам никаких претензий!! Наоборот, Вы здесь "пострадавшая" сторона — если бы Вы знали про дубли, то может и не тратили время...

Какое там время! Пока сынок пытался разобрать машинку, у меня руки освободились, вот и наваял.