Oppure
TextBox1.Text = WebBrowser1.Document.Body.OuterHtml MessageBox.Show(TextBox1.Lines(111))
MessageBox.Show(TextBox1.Lines(111))