Public Sub SchreibeLogFile(ByVal eintrag As String, ByVal pfad as String, ByVal _
  namefile as String)
        Dim myStreamWriter As StreamWriter
        Try
            myStreamWriter = File.AppendText(pfad & nameFile)
 
            myStreamWriter.Write(eintrag)
            myStreamWriter.Write(Environment.NewLine)
            myStreamWriter.Flush()
        Catch exc As Exception
            Console.WriteLine("Die Datei " & nameFile & " im Pfad " & pfad & "" & _
              "konnte nicht geöffnet oder geschrieben werden!")
            Console.WriteLine("exp******:" & exc.ToString)
        Finally
            Try
                If Not myStreamWriter Is Nothing Then
                    myStreamWriter.Close()
                End If
            Catch exc As Exception
            End Try
        End Try
    End Sub