Option Explicit
Dim i As Long
Private Sub EndlosAufruf()
    On Error Resume Next
    i = i + 1
    Err.Clear
    EndlosAufruf
    If Err.Number <> 0 Then MsgBox i & " - " & Err.Number & " - " & _
      Err.Description
End Sub
 
Private Sub Form_Load()
    EndlosAufruf
End Sub