orpette attributes i en xml fil

min xml fil.

<WordBruger>
  <WordDokument>
    <BrugerIni>xx-ol</BrugerIni>
    <DokumentNavn Dato="xxxxxxxx" SagsNr="yyyyyy">B0999001.DOC</DokumentNavn>
  </WordDokument>
</WordBruger>


jeg skal oprette flere dokumenter i worddokument, brugerini og dokumentnavn, her til bruger jeg.

If BrugerFindes = False Then
            Dim NyBruger As New XElement("WordDokument")

            NyBruger.Add(New XElement("BrugerIni", Brugernavn))
            NyBruger.Add(New XElement("DokumentNavn", DokumentOpen))
            AAbenLogXML.Element("WordBruger").Add(NyBruger)
        End If
        AAbenLogXML.Save(LogFilSti)

hvordan får jeg oprettet de 2 attributes på elementet dokumentnavn, gerne så jeg kan udfylede felterne under oprettelse.