go to vba excel

Ответ от Striker[гуру]
Sub Test()
On Error GoTo Errors1 ' <-переход на метку
Dim x As Integer
Dim a As Integer
Dim c As Double
x = 20
a = 0
c = x / a
MsgBox (" Этого не должно быть")
GoTo Ends:
Errors1: ' <- метка
MsgBox ("Ну ты блин Тикурила Даещь")
Ends:
End Sub
Striker
Мыслитель
(7933)
Это переход на конец программы.
А не меняется ничего, когда их убираешь здесь потому, что кусок
Dim x As Integer
Dim a As Integer
Dim c As Double
x = 20
a = 0
c = x / a
MsgBox (" Этого не должно быть")
GoTo Ends:
не выполняется.