Sub Datei_lesen ()
Dim Reader As System.IO.StreamReader = New System.IO.StreamReader(FileName)
        Dim Content As String = Reader.ReadToEnd
        Content = Content.Replace(Environment.NewLine, "")
        Content = Content.Remove(70, 10)
        Content = Content.Insert(70, "0376250001")
        Dim Writer As System.IO.StreamWriter = New System.IO.StreamWriter( _
          FileNameOut)
        Writer.Write(Content)
        Writer.Flush()
        Writer.Close()