Option Explicit
Private x As Double
 
Private Sub Command1_Click()
Call fehler1
 
End Sub
 
Private Sub Command2_Click()
Call fehler2
 
End Sub
 
Private Sub Command3_Click()
Call fehler3
 
End Sub
 
Sub fehler1()
  ' Bei Fehler nach err_fehler1 verzweigen
  On Error GoTo err_fehler1
  x = 5 / 0
  Exit Sub
 
err_fehler1:
  MsgBox "Test 1"
End Sub
 
Sub fehler2()
  ' Fehler ignorieren
  On Error Resume Next
  x = 5 / 0
  x = 1 / 2
  MsgBox x
End Sub
 
Sub fehler3()
  ' Fehler ignorieren
  On Error Resume Next
  x = 5 / 0
 MsgBox "test3"
 
  ' Fehlerbahendlung ausschalten!
  On Error GoTo 0
  x = 1 / 0
  MsgBox "test 4"
End Sub