Dim writer As StreamWriter = File.CreateText("c:\temp\test.txt")
writer.WriteLine("Hallo World")
writer.Close()
 
Dim reader As StreamReader = File.OpenText("c:\temp\test.txt")
Dim zeile As String
While (reader.Peek() > -1)
     zeile = reader.ReadLine()
End While
reader.Close()