приостановка цикла

[Рыжик чик чик]

Дана программа проверки документа по определенным правилам. При нахождении нарушения нужно выбрать одно из действий "Исправить" или "Пропустить". Эти действия выбираются кнопками command1 и command2 соответственно.
Как приостановить процесс цикла чтобы выбирать эти действия?
Вот фрагмент программы

For i = 1 To 75
c = doc.Paragraphs(i).Range.Characters. First
d = doc.Paragraphs(i + 1).Range.Characters.First
f = doc.Paragraphs(i + 1).Range.Words.Count
s1 = "не"

Select Case c
Case "S"
If f > 15 Then
RichTextBox1.Text = doc.Paragraphs(i + 1).Range.Text
RichTextBox2.Text = "количество слов в задании не должно превышать 10-15, если при этом не искажается структура тестового задания"
End if
Next

[Sasha_Smirnov]

Сообщение от Рыжик чик чик

При нахождении нарушения...

это когда срабатывает

If f > 15 Then
End if

да?

Тогда предлагаю добавить туда такой мессиджбокс:

If MsgBox("Исправить: " & vbTab & "OK" & _
        Chr(13) & Chr(13) & _
        "Оставить: " & vbTab & "Отмена", vbQuestion + vbOKCancel) = 1 Then
'при ответе ok здесь выполняется исправление текста'
End If

Что ж вы, Рыжик, замолчали?

[Рыжик чик чик]

спасибо большое))) именно это мне и подходит)))