Broncode website in visual studio laten genereren

[Y Zone]

Hoe kan ik simpelweg door in een textbox een url te typen , deze laten weergeven in een listbox?
Ik heb al wat code opgezocht en deze lijkt mij wel oké, kan iemand mij zeggen wat verkeerd is?

Imports System.Xml
Public Class Form1
    Dim bron As String

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txtadres.Clear()
        txtadres.Text = "http://"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.ClearSelected()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reader As XmlTextReader = New XmlTextReader[COLOR="Red"](bron)[/COLOR]
        Do While (reader.Read())
            Select Case reader.NodeType
                Case XmlNodeType.Element 'Display beginning of element.
                    Console.Write("<" + reader.Name)
                    If reader.HasAttributes Then 'If attributes exist
                        While reader.MoveToNextAttribute()
                            'Display attribute name and value.
                            Console.Write(" {0}='{1}'", reader.Name, reader.Value)
                        End While
                    End If
                    Console.WriteLine(">")
                Case XmlNodeType.Text 'Display the text in each element.
                    Console.WriteLine(reader.Value)
                Case XmlNodeType.EndElement 'Display end of element.
                    Console.Write("</" + reader.Name)
                    Console.WriteLine(">")
            End Select
        Loop
        Console.ReadLine()
        If cmbbroncode.Checked Then
            ListBox1.Text = (bron)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bron = txtadres.Text
    End Sub
End Class

IK heb het ook in bijlage gezet