Crear Nodo XML

[chcma]

Buenas tares !!!

Me dispongo a crear un nodo nuevo en mi fichero XML, pero, jejeje, no tengo ni idea de como hacerlo.

La estructura de mi fichero XML es la siguiente:
<sitios>
<sitio nombre="dual.com" servidor="dual.com" usuario="dual" clave="elba"></sitio>
<sitio nombre="studiocre.com" servidor="studiocre.com" usuario="ca" clave="cars"></sitio>
</sitios>


Como pdría hacer para:

<sitios>
<sitio nombre="dual.com" servidor="dual.com" usuario="dual" clave="elba"></sitio>
<sitio nombre="studiocre.com" servidor="studiocre.com" usuario="ca" clave="cars"></sitio>
<sitio nombre="otro" servidor="otro" usuario="otro" clave="otro"></sitio>
</sitios>

Me imagino que será con el appendChild, pero, creando un xmlElement me dice que el documento ya tiene un
documentElement.

Si alguien pudiera orientarme . . .

[chcma]

Yo lo estoy intentando asi:
Dim objXML as XmlDocument = New XmlDocument
objXML.Load(Path)
Dim NodPrincipal As XmlNode
Dim Nod As XmlNode

Nod = objXML.CreateElement("sitio")
Nod.Attributes("nombre").Value = "EEE"
Nod.Attributes("servidor").Value = "serv"
Nod.Attributes("usuario").Value = "usu"
Nod.Attributes("clave").Value = "clave"

NodPrincipal = objXML.DocumentElement.SelectSingleNode("/sitios")

NodPrincipal.AppendChild(Nod)
objXML.Save("Sitios.xml")

Pero nada, me salta el siguiente error:

Referencia a Objeto no establecida como instancia de un objeto.
Este error se genera cuando llega a la parte de: Nod.Attributes("nombre").Value = "EEE"

Hasta que llega ahi, todo funciona perfectamente.