Public Sub writeInFile(ByVal sText As String, ByVal sVerz As String, ByVal _
   sDatName As String)
        Try
 
                Using tw As TextWriter = TextWriter.Synchronized( _
                  File.AppendText(IIf(sVerz = "", sDatName, sVerz & _
                  sDatName).ToString))
                    tw.Write(sText & Chr(13))
                    tw.Flush()
                    tw.Close()
                End Using
 
        Catch ex As Exception
            Fehlerausgabe(ex.ToString, True, 1, MAIL_HEADER_ERROR, _
              "writeInFile")
        End Try
    End Sub