How do i write data to text file in VB.NET ?

Module Module1

    Sub Main()

       Dim fileName As String = "C:\rohatash\McTextFile.txt"

        Using reader As New System.IO.StreamReader(fileName)

            While Not reader.ReadLine() Is Nothing

                Console.WriteLine(reader.ReadLine())

            End While

        End Using

        Try

            Using writer As New System.IO.StreamWriter(fileName, True)

                writer.WriteLine("New text")

                writer.WriteLine("New text line goes here")

            End Using

        Catch ex As Exception

        End Try

        Console.ReadKey()

    End Sub