VB write to file with append mode

See more:

VB

VS2010

Need a little help, trying to write simple code that will append a file, writing the numbers 1, 2, 3, .... 100 with a For loop. problem I am having is the loop is working but the numbers are all 0s. I am using Console Application for visual basic apart of visual studios 2010. Any suggestions? Here is my code:

Module Module1

    Sub Main()

        Dim counter As Integer = 1
        Dim writer As System.IO.StreamWriter = System.IO.File.AppendText(C:\Documents and Settings\Administrator\My Documents\VB p_files\number_list.dat")

        For counter = 1 To 100
            writer.WriteLine(counter)

        Next
        writer.Close()

        'pause line
        Console.WriteLine("Press enter to continue...")
        Console.ReadLine()
    End Sub

End Module