Могу еще идею предложить:Private Sub CommandButton1_Click() Dim ar() As String, tmp() As String Dim predl As Long, slov As Long, symv As Long Dim i As Long ‘Разбиваем строку по предложениям ar = Split(Me.txtText.Text, ".") ‘И сразу узнаем их кол-во If UBound(ar) = 0 Then predl = 1 Else predl = UBound(ar) + 1 End If ‘Теперь считаем слова: проходим по всему массиву с предложениями и разбиваем каждую ячейку по пробелу: For i = 0 To UBound(ar) If Len(ar(i)) > 0 Then tmp = Split(ar(i), " ") If Len(tmp(0)) = 0 Then slov = slov + UBound(tmp) Else slov = slov + (UBound(tmp) + 1) End If End If Next i ‘Теперь считаем общее кол-во символов: symv = Len(Me.txtText.Text) ‘Чистим за собой память Erase ar Erase tmp ‘Выводим результат MsgBox "Предложений: " & CStr(predl) & vbCrLf & _ "Слов " & CStr(slov) & vbCrLf & _ "Символов: " & CStr(symv)End SubСкажу сразу, тут нужна доработка: предложение может заканчиваться и знаками: !, ?. Хотя тут гадать особо нечего: можно весь текст засунуть в строковую переменную, заменить все эти знаки точками - и тогда проблема решена:Dim strText as string strText=me.txtText.Text If InStr(1, strText, "!") > 0 Or _ InStr(1, strText, "?") > 0 Then strtext=replace(strText, "!", ".") strtext=replace(strText, "?", ".") End IfВ идеале, у пользователя останется его текст, а Вы будете знать точное кол-во нужных вещей, поскольку заменяете все знаки вопроса и восклицательные знаки в копии текста, который ввел пользователь. тогда вместо ‘Разбиваем строку по предложениямar = Split(Me.txtText.Text, ".")Пишем‘Разбиваем строку по предложениямar = Split(strText, ".")Филатов Евгений Геннадьевич предложил неплохой алгоритм, но он замораживает прогу пока не пройдет все символы - это может быть долго, особенно если текст большой. Выход состоит в применении отдельного потока, но в 6 версии бейсика этого нельзя (я еще не видел действительно везде и со всем работающего примера многопоточности), а в VB.NET - не проблема, но остается время подсчета если текст большой (хотя бы 300 кб).Недостаток моего алгоритма - жрет память при очень больших объемах текста. При очень большом объеме текста этот алгоритм тоже тормознет, но не настолько, как при переборе символов по отдельности. Может я в чем и ошибся в алгоритме - исправьте и сообщите, буду благодарен за развитие этой темы, либо выскажите свои соображения.