Open a File and Looping [Resolved]

[Ideas Man]

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.

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