Private Sub Form_Load()
 
  Dim a As Double
 
  On Error GoTo Fehlermarke
 
  'Mögliche Error-Bedingungen
 
  a = 1E+200 * 1E+200 'Overflow
 
  a = 4 / 0  'Division By Zero
 
  Exit Sub
 
 
Fehlermarke:
 
  If Err.Number = 6 Then
    'Overflow
    MsgBox "Fehler aufgetreten!" & vbCr & _
      "Fehlernummer: " & CStr(Err.Number) & vbCr & _
      "Fehlerbeschreibung: " & Err.Description, _
      vbExclamation + vbOKOnly, App.Title
      'ggf. Behandlung 6
  ElseIf Err.Number = 11 Then
    'Division by zero
    MsgBox "Fehler aufgetreten!" & vbCr & _
      "Fehlernummer: " & CStr(Err.Number) & vbCr & _
      "Fehlerbeschreibung: " & Err.Description, _
      vbExclamation + vbOKOnly, App.Title
      'ggf. Behandlung 11
  Else
 
    MsgBox "Fehler aufgetreten!" & vbCr & _
      "Fehlernummer: " & CStr(Err.Number) & vbCr & _
      "Fehlerbeschreibung: " & Err.Description, _
      vbExclamation + vbOKOnly, App.Title
      'allgemeine Behandlung
  End If
 
  Err.Clear
End Sub