Sub Write(ByVal key As String, ByVal valore As String)

        'Accedo agli elementi
        Dim NodeSettings As System.Xml.XmlNode = XmlConfig.SelectSingleNode("/configuration/appSettings")
        Dim NodeSetting As System.Xml.XmlNode = NodeSettings.SelectSingleNode("add[@key='" + key + "']")

        NodeSetting.Attributes.Append(XmlConfig.CreateAttribute("key")).Value = key
        NodeSetting.Attributes.Append(XmlConfig.CreateAttribute("value")).Value = valore
        NodeSettings.AppendChild(NodeSetting)

        XmlConfig.Save(PathAssembly)

    End Sub