Hola amigo(s) , quisiera su ayuda para extraer el texto de una web .. les explico
Estoy haciendo un traductor usando el traductor de google  pero tengo problemas para sacar el texto traducido  , en lugar de texto traducido solo me muestra parte del codigo fuente   

Public Class Form1
 
    Private Sub Traductor_Button_Click(sender As Object, e As EventArgs) Handles Traductor_Button.Click
        Try
            Dim MIHTML As String = WebBrowser1.DocumentText
            Dim Traduccion As String = WebUtility.HtmlDecode(MIHTML) 'PARA EVITAR PROBLEMAS CON LOS ACUTE,TILDE, ETC.
            Traduccion = Traduccion.Remove(0, Traduccion.IndexOf("class" & """" & "hps") + 10)
            Traduccion = Traduccion.Substring(0, Traduccion.IndexOf("</span"))
            TextBox2.Text = Traduccion
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        WebBrowser1.Navigate("https://translate.google.com/#auto/es" & TextBox1.Text)
 
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("source").SetAttribute("value", TextBox1.Text)
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
    End Sub
End Class
 

Tmbn tengo este problema, algunas veces funciona normal  y otras me sale este error 

Hola amigos , soy principiante en esto , y quisiera su ayuda por favor.
Lo que quiero hacer es extraer todas las url de los capitulos de un manga buscado en esta web " submanga.com " y que se muestren en un ListBox en el orden que estan , masomenos asi :


Para esto cree un TEXTBOX en el cual introduzco el nombre del manga que quiero y un BUTTON que realiza la busqueda en un webbrowser asi
" http://submanga.com/nombre_del_manga/completa "

=====Hasta aqui todo bien======

El problema es en la busqueda de los url .... en el LISTBOX me botan varias url menos la de los capitulos
Por ejemplo , si busco el manga "Gakuen Heaven" me sale así en el ListBox

WebBrowser1

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Try
            For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All
                If ETIQUETA.TagName = "A" Then
                    If ETIQUETA.OuterHtml.Contains("http://submanga.com/" & TextBox4.Text & "/") Then 
                        Try
                            Dim MIURL As String = ETIQUETA.OuterHtml 
                            MIURL = MIURL.Remove(0, MIURL.IndexOf("href=") + 6)
                            MIURL = MIURL.Substring(0, MIURL.IndexOf(">") - 1)
                            ListBox1.Items.Add(MIURL)
                        Catch ex As Exception
                        End Try
                    End If
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Si no fuera mucha molestia , me podrían decir que parte esta mal