Public Function log_schreiben(beschreibung As String, text As String, Optional _
  funktion As String)
    Dim logdatei As String
    logdatei = App.Path & "\log.txt"
    Open logdatei For Append As #fn
        Put #fn, 1, beschreibung + " " + text
    Close #fn
End Function