Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=10774") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim anchor = WebBrowser1.Document.GetElementById("linkNoTag") TextBox1.Text = anchor.OuterHtml anchor.DomElement.removeAttribute("id", 0) TextBox2.Text = anchor.OuterHtml End Sub End Class