Dim Quelldatei As New FileStream("C:\20\ogorder.data", FileMode.Open, _
       FileAccess.Read, FileShare.Read)
        Dim QuellReader As New StreamReader(Quelldatei)
        Dim Inlanddatei As New FileStream("c:\20\Inland.txt", FileMode.Create, _
          FileAccess.Write, FileShare.Write)
        Dim Inlandwriter As New StreamWriter(Inlanddatei)
        Dim Quellzeile As String
             Do Until QuellReader.Peek = -1
                Quellzeile = QuellReader.ReadLine
            Inlandwriter.WriteLine(Quellzeile)
 
        Loop
        Quelldatei.Close()
        Console.ReadLine()
 
        Inlanddatei.Flush()
        Inlanddatei.Close()