Public Function DeleteFile(File As String) As String
    On Error GoTo ErrorHandler
 
    Kill File
    DeleteFile = "Datei gelöscht..."
 
    Exit Function
 
ErrorHandler:
    DeleteFile = "Datei nicht vorhanden..."
End Function