Public Function sevSEPA_FileInit(...) As Long
  Dim Result As Long
 
  ' Absturz verhindern
  If Len(CdtrId) = 0 Then CdtrId = " "
 
  Result = DTA_FileInit(...)
  sevSEPA_FileInit = Result
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de