Dim val As String = directory & value
        Dim Reader As System.IO.StreamReader
'An dieser Stelle die Status-Abfrage
'Wenn die Datei nicht mehr geöffnet ist:
Reader = New System.IO.StreamReader(value, System.Text.Encoding.Default)
        Dim Content As String = Reader.ReadToEnd
        Content = Content.Replace(Environment.NewLine, "")
        Reader.Close()
        Dim Writer As System.IO.StreamWriter = New System.IO.StreamWriter( _
          FileNameOut, True, System.Text.Encoding.Default)
        Writer.Write(Content)
        Writer.Flush()
        Writer.Close()