Código fail de busqueda por Google

    Dim oNombre As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try

            For Each oNombre As String In TextBox1.Text.Replace(Environment.NewLine, ",").Split(",")


                'MsgBox("https://www.google.com/search?q=" & oNombre)

                WebBrowser1.Navigate("https://www.google.com/search?q=" & oNombre)
                AddHandler WebBrowser1.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted

            Next 'oNombre

        Catch ex As Exception When TextBox1.Text = String.Empty
            MsgBox("Error: Debe escribir algo en la casilla de Texto", MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim preresultStats As String = WebBrowser1.Document.GetElementById("ResultStats").InnerHtml
        Dim resultStats As String = Regex.Replace(preresultStats, "<nobr> |&nbsp;|<\/nobr>", "")
        MsgBox(oNombre & ", ha obtenido:" & resultStats)
    End Sub