FileReader Class - End Of Stream Loop

I have a problem with the filereader class (i think). My program has server/client interaction and the client reads from a text file, sends the data to the server. The problem is, the client is sending the last line of the text file twice, so for example I use test data in the text file such as:

Test data 1
Test data 2
Test data 3

The server will receive:
Test data 1
Test data 2
Test data 3
Test data 3

Here is my code, I have a feeling it is to do with the filereader.endofstream loop.
Private Sub readLine()
Dim filePath As String = ("D:outputLog.txt")
Dim fileReader As New StreamReader(filePath)
Do
chrMessageToSend = fileReader.ReadLine()
[Code] .....