Dim sourcecode As String
        sourcecode = WebBrowser1.DocumentText
 
        Dim endtext As String
        endtext = sourcecode.Substring(194, 101299)
        MsgBox(endtext)
 
        Me.ListBox1.Items.AddRange(endtext.Split(vbCrLf))