Дана строка; определить, сколько раз входит в нее группа букв abc

S = TextBox1
For i = 1 To Len(S)
  Select Case Mid$(S, i, 1)
  Case "abc" To "ABC": c = c + 1
  End Select
Next
Label1.Caption = "Количество фраз 'abc' = " & c
End Sub

Dim S$, m&
S = TextBox1
m=len(S)'определяем длину изначальной строки
S=Replace(S,"abc","")'заменяем набор символов на строку нулевой длинны
m=m-len(S)'определяем разницу между начальной длинной строки и длинной измененной строки
Label1.Caption = "Количество фраз 'abc' = " & m/3'выводим сообщение и делим полученный результат на количество символов в наборе

Dim Num As Object
With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True ' False учитывать регистр
    .Pattern = "abc"
    Set Num = .Execute(Text1.Text)
End With
 Label1.Caption = "Группа букв "abc" входит   " & Num.Count & " раз."

       n&=(len(s)-len(Replace$(s,"abc","")))\3

Label1.Caption = "Количество фраз 'abc' = " & UBound(Split(LCase(TextBox1), "abc"))