Обработка строк

[Hugo121]

Такой вариант ("и" считает корректно):

Option Explicit

Sub start()
    Dim s As String, ss As String, ch As String, cnt As Long
    s = "Благодарна за помощь, но мы не используем таких операторов и функций((( Вот пример похожей задачи. пробовала сделать по аналогии, но не получается((("
    s = Replace(s, ",", " ")
    s = Replace(s, ".", " ")
    s = Replace(s, ":", " ")
    s = Replace(s, ";", " ")
    s = Replace(s, "!", " ")
    s = Replace(s, "?", " ")
    s = Replace(s, "/", " ")
    s = Replace(s, "}", " ")
    s = Replace(s, "]", " ")
    s = Replace(s, "-", " ")
    s = Replace(s, "(", " ")
    s = Replace(s, ")", " ")
    ch = "и"
    ss = Replace(s, ch & " ", " ")
    cnt = Len(s) - Len(ss)
    MsgBox "Количество слов, которые закончилось на """ & ch & """ = " & cnt
End Sub

Может быть ещё какой символ забыл...
Ещё нужно отдельно проверить конец текста, если текст заканчивается не знаком препинания, а нужной буквой. Это домашнее задание