reader.ReadToEnd returns a string. So this is one result displayed as one line. Use string.split to split the lines.
Dim Lf As Char = ToChar(CByte(10))
Dim Cr As Char = ToChar(CByte(13))
Dim CrLf As Char() = {Cr, Lf}
Dim lines() as string = reader.ReadToEnd().Split(CrLf, StringSplitOptions.RemoveEmptyEntries)
The ** are the cariage return linefeed (CrLf) characters.