vb.net whois and RPSL whois format

[axxegfx]

i use this code
Public Function WhoISLookup(ByV al sAddress As String, ByVal sServer As
String) As String
Dim sResponse As String = "nothing"
sAddress += "\r\n"
sAddress = "194.224.52 .36" & ControlChars.Cr Lf
sAddress += ControlChars.Cr Lf
Dim oTCP As TcpClient = New TcpClient
Try
oTCP.Connect(sS erver, 43)
Catch ex As SocketException
Return ex.Message
End Try
Dim aAddress As [Byte]() = Encoding.ASCII. GetBytes(sAddre ss)
Try
Dim s As Stream = oTCP.GetStream( )
s.Write(aAddres s, 0, sAddress.Length )
Dim sReader As StreamReader = New StreamReader(oT CP.GetStream,
Encoding.ASCII)
Dim SB As New StringBuilder
While -1 <> sReader.Peek
SB.Append(sRead er.ReadLine & vbCrLf)
End While
sResponse = SB.ToString
oTCP.Close()
Catch ex As Exception
Return ex.Message
End Try
Return sResponse
End Function

and i need to acces to each line when code arrives to while and
SB.Append(sRead er.ReadLine & vbCrLf), but it doesn't read line to line , i
have seen in sReader a field named char buffer where the are all chars.
how could i read correctly line to line? or to mount the line character to
character.

Sorry but my english is ver bad.