Dim FStream As New System.IO.FileStream(strFile, _
           System.IO.FileMode.OpenOrCreate)
         Dim SReader As New System.IO.StreamReader(FStream)
         Dim SWriter As System.IO.StreamWriter
 
         Dim StringWriter As New System.IO.StringWriter()
         Dim StringReader As New System.IO.StringReader(FStream)
 
         ' special adjustments
         Dim sLine As String
 
         Do Until SReader.Peek = -1
            sLine = SReader.ReadLine
            ' ÄNDERUNGEN VORNEHMEN  
            StringWriter.WriteLine(sLine)
         Loop
 
         Application.DoEvents()
         SReader.Close()
 
         SWriter = New System.IO.StreamWriter(strFile)
         SWriter.Write(StringWriter.ToString)
 
         Application.DoEvents()
         SWriter.Close()
 
         Application.DoEvents()
         FStream.Close()