Dim XML As XElement = New XElement("Configuration")
        Dim Paths As XElement = New XElement("Paths")
 
        For Each Entry As Generic.KeyValuePair(Of String, String) In Me
            Paths.Add(New XElement(Entry.Key, Entry.Value))
        Next
 
        XML.Add(Paths)
 
        MsgBox(XML.ToString)