Dim outfile As TextWriter = File.AppendText("c:/CopytoFile.txt")
Dim infile As TextReader = File.OpenText("c:/InFile.txt")
Dim Str As String
While( infile.ReadLine() )
  outfile.WriteLine(Str)
End While
infile.Close()
outfile.Close()