Произвольный? возврат в управляющую конструкцию после выхода из нее

[tungsten]

Доброго времени, друзья!
Никогда такого небыло и вот опять...
Чувствую некий пробел в знаниях...
Excel 2016 VBA
Процедура обрабатывает событие изменения TextBox'a, с целью оставить только положительное значение и предотвратить ввод символов отличных от цифр.

1. Private Sub SumBox_change()
2. If Not IsNumeric(SumBox.value) Or SumBox.value < 0 Then
3. SumBox.value = ""
4. MsgBox "Сумма должна быть положительной!"
5. End If
6. End Sub

Ввожу символ вне диапазона. По дебаггеру процедура выполняется полностью, строки 1-6. Затем после строки 6 возвращается снова на строку 4! затем штатно 5,6.
Вот поясните мне, пожалуйста, чем вызвано это поведение?
Повторение мать учения...
я понимаю если бы были метки перехода, вызовы, цикл, ну или хотя-бы начал сначала процедуру...

[tungsten]

сам косяк... рекурсию вызвал...

[Serge_Bliznykov]

можно выключить.

перед изменением

    Application.EnableEvents = False

после

    Application.EnableEvents = True

[tungsten]

Сообщение от Serge_Bliznykov

можно выключить.

В sql можно триггеры отключать, подумал что было бы неплохо делать то же самое в VBA...
Спасибо за подсказку! Буду пользоваться!

[Казанский]

Application.EnableEvents не влияет на события элементов управления! Можно так

Private Sub SumBox_change()
Static busy As Boolean
  If busy Then Exit Sub
  If Not IsNumeric(SumBox.Value) Or SumBox.Value < 0 Then
    busy = True
    SumBox.Value = ""
    busy = False
    MsgBox "Сумма должна быть положительной!"
  End If
End Sub

[Serge_Bliznykov]

Сообщение от Казанский

Application.EnableEvents не влияет на события элементов управления!

Приношу свои извинения за то, что ввёл в заблуждение!