Парсинг файлов в цикле, обращение на каждом проходе к Awesomium

Private Sub WebControl1_LoadingFrameComplete(sender As Object, e As FrameEventArgs) Handles WebControl1.LoadingFrameComplete
        If e.IsMainFrame Then
            ' Обработка здесь .................
 
        End If
End Sub

                While WebControl1.IsLoading
                    Application.DoEvents()
                End While

WebControl1.Source = New Uri("url_адрес-здесь")

        For parStroka = 0 To DataGridView5.RowCount - 1
            '  Что-то делаем тут ...............
            WebControl1.Source = New Uri("url_адрес-здесь")
            '   Текст вставляем в поле Awesomium (WebControl1)
            WebControl1.ExecuteJavascriptWithResult("document.getElementById('jobtext').value = """ & TextBox5.Text & """")
            '   Нажать кнопку в браузере Awesomium "Проверить"
            WebControl1.ExecuteJavascriptWithResult("document.querySelector('#textspellcheck > a').click();")
            '    Ожидаем завершения загрузки
            While WebControl1.IsLoading
                Application.DoEvents()
            End While
            '  Что-то делаем тут ...............
        Next

    Private Sub WebControl1_DocumentReady(sender As Object, e As DocumentReadyEventArgs) Handles WebControl1.DocumentReady
        '   Вытаскиваем код из Awesomium
        Try
            Dim html As String = WebControl1.ExecuteJavascriptWithResult("document.getElementsByTagName('html')[0].innerHTML")
            '   Что-то делаем тут ...............
            StatusLabel1.Text = "Обработалось ... "
        Catch ex As Exception
            StatusLabel1.Text = "Процедура DocumentReady"
        End Try
    End Sub
 
    Private Sub WebControl1_LoadingFrameComplete(sender As Object, e As FrameEventArgs) Handles WebControl1.LoadingFrameComplete
        If e.IsMainFrame Then
            StatusLabel1.Text = "Awesomium полность загружен"
        End If
    End Sub

    Private Sub WebControl1_DocumentReady(sender As Object, e As DocumentReadyEventArgs) Handles WebControl1.DocumentReady
        Try
            Dim html As String = WebControl1.ExecuteJavascriptWithResult("document.getElementsByTagName('html')[0].innerHTML")
            Dim doc As New HtmlDocument
            doc.LoadHtml(html)
            Dim semadro As String = ""
 
            For Each table As HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='textcheckresults']/div[1]/table//td[1]")
                Application.DoEvents()
                If table.InnerText <> "" Then
                    semadro = semadro + table.InnerText + ", "
                    keyfraz += 1
                    If keyfraz = 10 Then Exit For      ' Выходим из процедуры если набрали 10 фраз
                End If
            Next

For Each table As HtmlNode In doc.DocumentNode.SelectNodes........

Private Sub WebControl1_DocumentReady(sender As Object, e As DocumentReadyEventArgs) Handles WebControl1.DocumentReady

        Dim semadro = String.Join(", ", doc.DocumentNode.SelectNodes("//*[@id='textcheckresults']/div[1]/table//td[1]").Select(Function(td) td.InnerText))

TextBox9.Text = "=======================  Мы здесь ================"

        MsgBox(String.Join(", ", doc.DocumentNode.SelectNodes("//table//td[1]").Select(Function(td) td.InnerText)))

MsgBox(doc.DocumentNode.SelectNodes("//*[@id='textcheckresults']/div[1]/table//td[1]").Count.ToString())

MsgBox(doc.DocumentNode.SelectNodes("//*[@id='textcheckresults']/div[1]/table//td[1]").Count.ToString())

Private qMyQueue As New Queue

 '   Ставим в ОЧЕРЕДЬ файлы
            For parStroka = 0 To DataGridView5.RowCount - 1
                qMyQueue.Enqueue(DataGridView5.Item(0, parStroka).Value)
            Next

 Private Sub WebControl1_DocumentReady(sender As Object, e As DocumentReadyEventArgs) Handles WebControl1.DocumentReady
        Try
            '   Ищем слова: Проанализировать другой текст
            Dim htmld As String = WebControl1.ExecuteJavascriptWithResult("document.getElementsByTagName('html')[0].innerHTML")
            If InStr(1, htmld, "Проанализировать другой текст") <> 0 Then
    Button1_Click(sender, e)  ' Обработка статистики
                Exit Sub
            End If
        Catch ex As Exception
 
        End Try

'   Удаления элемента из очереди
    qMyQueue.Dequeue()

    Private Sub WebControl1_DocumentReady(sender As Object, e As DocumentReadyEventArgs) Handles WebControl1.DocumentReady
        ' Чтобы избежать обработки фреймов, проверяем, сработало ли это для страницы верхнего уровня
    ' Сначала проверь, в каком виде здесь представлена оригинальная строка, например: присутствует ли в адресе слеш в конце.
        If e.OriginalString = "http://advego.ru/text/seo/" Then
            If Boolean.Parse(WebControl1.ExecuteJavascriptWithResult("!documrnt.querySelector('h3')")) Then
                ' Извлекаем текст из очереди
                ' Вставляем в текстовое поле
                ' Жмем на обработку
            Else
                ' Извлекаем статистику
                ' Проверяем наличие текста в очереди
                ' Если очередь не пуста - жмем в браузере кнопку обработки нового текста
            End If
        End If
 
    End Sub

                Else
                    '---------------------------------------------------------
                    ' Извлекаем статистику
                    ' Проверяем наличие текста в очереди
                    ' Если очередь не пуста - жмем в браузере кнопку обработки нового текста
                    '---------------------------------------------------------
                    '   здесь я вытаскиваю статистику ........................               
                End If

If Stat >= 2 Then
                        '   Удаления элемента из очереди
                        qMyQueue.Dequeue()
                        АнализИзОчередиToolStripMenuItem_Click(sender, e)
                    End If

 Private Sub АнализИзОчередиToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles АнализИзОчередиToolStripMenuItem.Click
 '   На текущий элемент в DataGridView5
        For parStroka = 0 To DataGridView5.RowCount - 1
            If qMyQueue.Peek() = DataGridView5.Item(0, parStroka).Value Then
                DataGridView5.CurrentCell = DataGridView5.Rows(parStroka).Cells(0)
                Exit For
            End If
        Next
        '   Обнуляем - Счетчик заходов WebControl1_DocumentReady
        Stat = 0
        '   Код страницы в TextBox2
        TextBox2.Text = IO.File.ReadAllText(TextBox1.Text + "" + qMyQueue.Peek(), Encoding.UTF8)
        ' ..................
        WebControl1.Source = New Uri("OLD_URL")
  End Sub

    Private Sub WebControl1_DocumentReady(sender As Object, e As DocumentReadyEventArgs) Handles WebControl1.DocumentReady
        If e.ReadyState = DocumentReadyState.Loaded Then
            If Boolean.Parse(WebControl1.ExecuteJavascriptWithResult("!documrnt.querySelector('h3')")) Then
                ' Извлекаем текст из очереди
                ' Вставляем в текстовое поле
                ' Жмем на обработку
            Else
                ' Извлекаем статистику
                ' Проверяем наличие текста в очереди
                ' Если очередь не пуста - жмем в браузере кнопку обработки нового текста
            End If
        End If
 
    End Sub