Public Function Dateicheck ()
1:  On Error Goto Fehlerfang
2:  If FileExists("C:\sendemail.exe") Then
3:     ergebnis = ShellX(SendeString)
4:  End If
Exit Function
 
Fehlerfang:
 
Listbox1.add "Fehlernummer: " & Err.Number
Listbox1.add "Fehlerbeschreibung: " & Err.Description
Listbox1.add "Aufgetreten in: " & Err.Source
Listbox1.add "Fehler in Zeile: " & Erl
 
 
End Function