4.9 Оператор Exit For

Оператор Exit For позволяет выйти из цикла For…Next до его завершения. Тем самым программа сможет среагировать на определённое событие, не завершая выполнение цикла заданное число раз. Например, в следующем примере

Dim i As Integer

Dim name As String

For i = 1 To 10

name = InputBox("Введите Ваше имя или слово Обед для выхода")

If name = "Обед" Then

Exit For

End If

MsgBox name

Next

программа запрашивает у пользователя ввод до 10 имён, но если введено слово "Обед", то программа прервёт своё выполнение и приступит к обработке инструкций, следующих за оператором Next. Оператор Exit For обычно используется с оператором If или Select Case.