Private Sub Form_Load()
    Dim Ergebnis As Integer
    Dim Zahl1 As Integer
 
    Zahl1 = 10
 
    On Error Resume Next
        'Fehler provozieren
        Ergebnis = Zahl1 / 0
 
        If Err.Number > 0 Then
            MsgBox "Fehlernummer: " & Err.Number & vbCrLf & "Fehlertext: " & _
              Err.Description
            Exit Sub
        End If
    Err.Clear
 
    MsgBox Ergebnis
End Sub