Need help on "Readline()"

Hello,


I want to make domain lookup. I have found some examples on internet, make some tuning and it works well. :) The problem is "Regex.Replace(objSR.ReadToEnd()" get to my a full information about domain and so on, but all information I don't need, I only need the one line which starts with "Status", because other information is not needed for most off simple customers... I guess that it possible to solve this issue with "Readline()", but I can't understand how. Maybe, anyone can halp me?

Protected Sub btn_Click(ByVal sender As Object, ByVal eArgs As EventArgs)
        Try
            Dim objTCPC As New TcpClient(Request.Form("WhoisServer") & ".whois-servers.net", 43)
            Dim strDomain As String = (Request.Form("Domain ...