Help reading and writing from file using StreamRaeder/Writer

Imports System.IO
Imports System.Text
 
Public Class Payroll
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        boxStartDate.Text = "05-04-08"
        boxEndDate.Text = "05-05-08"
    End Sub
 
    Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim objStreamReader As StreamReader
        Dim strLine As String
        Dim objStreamWriter As StreamWriter
        Dim counter As Integer
 
 
        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Documents and Settings\Administrator\My Documents\Payroll.txt")
        objStreamWriter = New StreamWriter("C:\Testfile.txt")
 
        lblStatus.Text = "Starting..."
 
        strLine = "Payroll"
 
        Do While Not strLine Is Nothing
 
 
            Do While counter <> 2
                lblStatus.Text = "Starting Read"
                counter = 0
                'Read
                strLine = objStreamReader.ReadLine
                counter = counter + 1
            Loop
 
            objStreamWriter.WriteLine(strLine)
            lblStatus.Text = "Writing Line"
 
            'Read the next line.
            strLine = objStreamReader.ReadLine
 
        Loop
 
 
        'Close the file.
        objStreamReader.Close()
        'Close the file.
        objStreamWriter.Close()
 
 
    End Sub
End Class