Try
            Dim strUrl As String = "http://www.directnic.com/whois/index.php?query=" + TextBox1.Text + Domin.SelectedItem.Text
            Dim web As New WebClient()
            Dim bufDate As Byte()
            bufDate = web.DownloadData(strUrl)
            firstLevel = Encoding.Default.GetString(bufDate)

        Catch ex As System.Net.WebException
            info.Text = ex.ToString
            Button1.Visible = True
            Button2.Visible = False
            Exit Sub
        End Try
        Try
            Dim first, last As String
            first = "<p class=" + Chr(34) + "text12" + Chr(34) + ">"
            last = "</p>"
            Dim RE As New Regex(first + "(?<MYDATA>.*?(?=" + last + "))", RegexOptions.IgnoreCase Or RegexOptions.Singleline)
            Dim m As Match = RE.Match(firstLevel)
            TextBox3.Text = m.Groups("MYDATA").Value + "<br>"
            info.Text = TextBox1.Text + Domin.SelectedItem.Text
            'Dominio disponibile
            If TextBox3.Text.Length < 10 Then
                'Dominio non disponibile
            End If
        Catch ex As Exception
            info.Text = "Impossibile verificare il dominio. Riprovare."
            Button1.Visible = True
            Button2.Visible = False
        End Try