File Directory VB.Net

Imports System
Imports System.IO
Imports System.Text
Public Class Test
    Public Shared Sub Main()
        Dim path As String = "c:\MyTest.txt"
        Dim fs As FileStream = File.Create(path)
        AddText(fs, "text")
        AddText(fs, Environment.NewLine & "and this is on a new line")
        Dim i As Integer
        For i = 1 To 100
            AddText(fs, Convert.ToChar(i).ToString())
        Next
        fs.Close()
        fs = File.OpenRead(path)
        Dim b(1024) As Byte
        Dim temp As UTF8Encoding = New UTF8Encoding(True)
        Do While fs.Read(b, 0, b.Length) > 0
            Console.WriteLine(temp.GetString(b))
        Loop
        fs.Close()
    End Sub
    Private Shared Sub AddText(ByVal fs As FileStream, ByVal value As String)
        Dim info As Byte() = New UTF8Encoding(True).GetBytes(value)
        fs.Write(info, 0, info.Length)
    End Sub
End Class