Exit Sub
ErrHandler:
  ErrorLogSchreiben "Hauptform DateiLadenKassierungsListe, Zeile " & Erl & "," & _
    "FNr. " & Err.Number & ", " & Err.Description
  Resume Next

Sub ErrorLogSchreiben(ByVal Str As String)
  On Error Resume Next
  Set fso = New FileSystemObject
  Dim Pfad As String
  Pfad = "C:\" & RegAppName & "\ErrLog\"
  Dim r As Integer
  r = VBEX_MakeDir(Pfad)
  Set tst = fso.OpenTextFile(Pfad & "ErrorLog " & Format(Date, "YYYY-MM-DD") & _
    ".txt", ForAppending, True)
  tst.Write Format(Time, "HH:MM:SS ") & Str & vbCrLf
  tst.Close
End Sub