problemas kon un archivo d texto

[britboy]

ola amigo tengo que leer un archivo de texto el cual lo ago satisfactia mente
el problema es que me muestra todos los datos y no los separa por linea
esto lo ago asi

Código:

    Dim ds As New FileStream("c:\fuente.txt", FileMode.Open, FileAccess.Read)
        Dim d As New StreamReader(ds)
        Dim linea As String
        d.BaseStream.Seek(0, SeekOrigin.Begin)
        While d.Peek() > -1
                linea = d.ReadLine()
                Dim separar As String
                Response.Write(linea)
        End While
        d.Close()
    End Sub

si alguien me pudiera ayudar se los agradeceria