.NET 4.x Как добавить данные в xml-файл, используя пространство имен System.Xml.Linq - Visual Basic .NET

Формулировка задачи:

Допустим, есть файл xml, я его взял из этого треда: Сохранение данных в XML-файл

                    Листинг программы
                
 
                        
                          
                    
<?xml version="1.0" encoding="utf-8"?>
<Root>
  <Country name="Russia">
    <Capital>Moscow</Capital>
    <Population>142 000 000</Population>
  </Country>
  <Country name="USA">
    <Capital>Washington</Capital>
    <Population>280 000 000</Population>
  </Country>
  <Country name="Germany">
    <Capital>Berlin</Capital>
    <Population>80 000 000</Population>
  </Country>
</Root>

В том же треде есть код как изменить данный выше файл:

                    Листинг программы
                
 
                        
                          
                    
Imports System.Xml.Linq
Dim fileName As String = "D:\Exp\ccc.xml"
        'загрузка документа
        Dim xdoc As XDocument = XDocument.Load(fileName)
        'получаем столицу России
        For Each xe As XElement In xdoc.Element("Root").Elements("Country")
            If xe.Attribute("name").Value = "Russia" Then
                Console.WriteLine(xe.Element("Capital").Value)
                'Изменить столицу
                xe.Element("Capital").Value = "St.Petersburg"
            End If
xdoc.Save(fileName)
        Next

Как, используя данные выше код и пространство имен, добавить новое значение в xml?

Решение задачи: «.NET 4.x Как добавить данные в xml-файл, используя пространство имен System.Xml.Linq»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim fileName As String = "D:\Exp\ccc.xml"
Dim xdoc As XDocument = XDocument.Load(fileName)
 
Dim country As String = "Egypt"
Dim capital As String = "Cairo"
Dim population As Integer = 9176000
 
Dim xcountry As New XElement("Country", _
    New XAttribute("name", country), _
    New XElement("Capital", capital), _
    New XElement("Population", population.ToString("N0", CultureInfo.GetCultureInfo("ru-RU"))) _
)
 
xdoc.Root.Add(xcountry)
xdoc.Save(fileName)