Open a File and Looping [Resolved]

OK, I know how to get the data out of a file and how to loop to get more than one line. The problem is if the file contains a blank line, my loop stops without continuing. I'm not sure if VB6 had this problem but it is really annoying. I'd also like a .NET answer too please, not an old unmanaged answer if that's what it's called.

VB Code:

Do While Data <> Nothing 'Problem
    Data = sReader.ReadLine
    ListBox1.Items.Add(Data)
Loop

use the while loop on the StreamReader.

VB Code:

While Not sReader.Peek() = -1
    Data = sReader.ReadLine
    If Not Data = "" Then '/// if there's data in the string.
        ListBox1.Items.Add(Data)
    End If
End While

OK, I tried that. Firstly, does it matter if you use Do While...Loop instead of While...End While, I didn't notice a difference and second it cuts the last item off in the file, how do you stop that?

Sorry, I found out what was wrong, error on my part. Thanks for that, I'm all good now :).