guardar xml con caracteres especiales < > / &

Public Sub guardar_query_cv(ByVal nodo As String, ByVal query_sql As String)
        Dim doc As New XmlDocument
        doc.Load(Directory.GetCurrentDirectory & "\" & Form1.archivoConfiguracion)
        Dim xnode As XmlNode = doc.GetElementsByTagName(nodo)(0)
        xnode.InnerXml = System.Security.SecurityElement.Escape(query_sql)
        doc.Save(Directory.GetCurrentDirectory & "\" & Form1.archivoConfiguracion)
    End Sub


fuente

fuente1

fuente2