MY first attemt to make something

This is my first post. and very fist app that I am trying to make :)
let me explain what I am tring to make

I wanted to make a skype ip resolver,

I have
3x Buttons
2x TextBox
1x WebBrowser

Webbrowser is set to invisible and it will open http://www.anonware.net/resolver/skype.php#
Button1 Will copy and put the text from Textbox1 and put it in http://www.anonware.net/resolver/skype.php#'s inputbox
Button2 will click Submit in http://www.anonware.net/resolver/skype.php#
Button3 will Copy the result from http://www.anonware.net/resolver/skype.php# and print it to Textbox2


I will provide a screenshot for you guys just to make things easy
and upload the project aswell


I have worked allot on Button1 and Button2 and according to my limited knowledge they are some how near to working stats,
I dont know how to get button3 working,

Thank you guys

Attachment 32179

ProjectFile

I forgot to add the Code

Code:

---

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WB1.Navigate("http://www.anonware.net/resolver/skype.php#")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WB1.Document.get("Input Skype or IP").SetAttribute("value", TX1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WB1.Document.GetElementById("submit").InvokeMember("click")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dl_link As HtmlElement = WB1.Document.GetElementById("how to copy and bring the result of resolved ip to TX2.Text ???")

        Dim links As HtmlElementCollection = dl_link.GetElementsByTagName("a")

        Dim url As String = links(0).GetAttribute("href")
        System.Diagnostics.Process.Start(url)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

---