Private Sub Form_Activate()
 
  Dim a As Double
 
  On Error Resume Next
  a = 4 / 0
  If Err.Number <> 0 Then
    MsgBox "Fehler aufgetreten!" & vbCr & _
      "Fehlernummer: " & CStr(Err.Number) & vbCr & _
      "Fehlerbeschreibung: " & Err.Description, _
      vbExclamation + vbOKOnly, App.Title
    Err.Clear
  End If
  On Error GoTo 0
 
End Sub

Gruss,

Zardoz

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

Sub Test
     On Error Goto MyError
     ....
     Exit Sub
 
MyError:
     MsgBox Err.Description
     'Entweder beenden oder fortsetzen mit Resume Next
End Sub