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