Dim sr As New StreamReader("c:\TESINPUT.TXT")
Dim ws As New StreamWriter("c:\TESTOUTPUT.TXT", False)

Do While sr.Peek <> -1
   ws.WriteLine(sr.ReadLine())
Loop

sr.Close()
ws.Close()

Simple function to read and write file from vb.net

Reading and Writing textfile

VB.NET