Kan ikke læse & i xml fil

Imports System
Imports System.Security
Imports System.Web
Imports System.Xml

Namespace E
    Public Class Program
        Public Shared Sub Main(args As String())
            Dim s As String = "http://test.dk/PermalinkViewer.htmx?viewId=1&linkType=htmlType"
            Console.WriteLine(s)
            Dim s1 As String = HttpUtility.UrlEncode(s)
            Console.WriteLine(s1)
            Dim s2 As String = SecurityElement.Escape(s)
            Console.WriteLine(s2)
            Using xw As XmlWriter = XmlTextWriter.Create(Console.Out)
                xw.WriteStartDocument()
                xw.WriteElementString("url", s)
                xw.WriteEndDocument()
            End Using
            Console.ReadKey()
        End Sub
    End Class
End Namespace