Парсинг файлов в цикле, обращение на каждом проходе к 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

If Boolean.Parse(WebControl1.ExecuteJavascriptWithResult("!document.querySelector('h3')")) Then

Try 
                   '...........................
                        '   Переходим по метке если нет ключевых фраз
                        GoTo m1
                   '...........................
                   '---------------------------------------------------------
                    '       Сохраняем файл на диск 
                    '---------------------------------------------------------
                    СохранитьToolStripMenuItem_Click(sender, e)
 
                    '   Удаления элемента из очереди
m1:                 qMyQueue.Dequeue()
                    If qMyQueue.Peek() <> "" Then
                    '   Возвращаемся в начало 
                        АнализИзОчередиToolStripMenuItem_Click(sender, e)
                    End If
                End If
            End If
 
        Catch ex As System.FormatException 
            '   Возвращаемся в начало 
            АнализИзОчередиToolStripMenuItem_Click(sender, e)
        Catch ex As Exception
            StatusLabel1.Text = "Конец очереди"
        End Try
    End Sub

        Catch ex As Exception
            '   Обновляем страницу
            WebControl1.Source = New Uri("OLD_URL")

 WebControl1.Source = New Uri("OLD_URL")