Dim TextWriter1 As TextWriter
TextWriter1.Initialize(File.OpenOutput(File.DirRootExternal, "Text.txt", False))
For i = 1 To 10
TextWriter1.WriteLine("Line" & i)
Next
TextWriter1.Close
Erel is going to yell at you for using TextReader and TextWriter. I predict he'll say that in most cases, you are better off using File.ReadList and File.WriteList or similar methods.