22/11/2010 Development / asp.net

Dim doc As StreamReader = File.OpenText(filepath)
While doc.Peek >= 0
    MsgBox(doc.ReadLine())
End While