Дана строка. определить сколько раз в неё входит подстрока abc. написать на vba

Sub abc()

   s = InputBox("Введите строку")

   k = Len(s) - Len(Replace(s, "abc", ""))

   MsgBox k / 3

End Sub

Все очень просто. Из длины исходной строки вычитаем длину строки, полученную исключением всех вхождений строки abc и делим разность на 3, - длину подстроки.