Vba определить количество вхождения строки 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, как сделать подсчет количества вхождений?
Во втором коде ступор

[Serge_Bliznykov]

прежде всего, вот неточность. Объявлять надо так:

Dim s1 As String, s2 As String

иначе переменная s1 будет типа Variant

во-вторых, решить данную задачу можно кучей способов...
вот, например, два варианта решения ПЕРВОГО задания:

Dim s1 As String, s2 As String
Dim Cnt As Integer
s1 = "es"
s2 = "vest is best fore.st"
Cnt = 0
While InStr(1, s2, s1) > 0
 Cnt = Cnt + 1
 s2 = Mid(s2, InStr(1, s2, s1) + Len(s1))
 Cells(Cnt, 1) = s2
Wend
MsgBox "Count = " & Str(Cnt)

Dim s1 As String, s2 As String
Dim PrevPos As Integer, Cnt As Integer
s1 = "es"
s2 = "vest is best forest"
PrevPos = 1
Cnt = 0
While InStr(PrevPos, s2, s1) > 0
 Cnt = Cnt + 1
 PrevPos = InStr(PrevPos, s2, s1) + 1
Wend
MsgBox "Count = " & Str(Cnt)

добавлено.
решение второй задачи:

Dim s1 As String, s2 As String
Dim i As Integer, Cnt As Integer
 s1 = "es"
 s2 = "vest is best forest"
 i = 1
 Cnt = 0
 For i = 1 To Len(s2) - Len(s1) + 1
   If Mid(s2, i, Len(s1)) = s1 Then Cnt = Cnt + 1
 Next i
 MsgBox "Count = " & Str(Cnt)

[HighStar]

Ещё один вариант - правда, красиво!

Dim s1 As String, s2 As String
 s1 = "es"
 s2 = "vest is best forest"
 MsgBox "Count = " & UBound(Split(s2, s1))

[Serge_Bliznykov]

HighStar, согласен. Красиво!...

[belserge]

HighStar Ещё один вариант - правда, красиво!
очень красиво.