Public Function log(status As String, funktion As String, Optional text As _
  String, Optional wert As String)
    Dim logdatei As String
    Dim datum As String
    datum = StrConv(Now(), vbLowerCase)
    logdatei = App.Path & "\log.txt"
    Dim ff As Integer
    ff = FreeFile
    status = StrConv(status, vbUpperCase)
    If Len(status) < 3 Then status = status + " "
    text = StrConv(text, vbUpperCase)
    funktion = StrConv(funktion, vbUpperCase)
    wert = StrConv(wert, vbUpperCase)
    Open logdatei For Binary Access Write As ff
        Put ff, LOF(ff), vbCr + vbLf + datum + " " + status + " " + text + " " _
          + wert + " " + funktion + " "
    Close ff
End Function