Problemas ao inserir tags xml

[mestre fyoda]

<?xml version="1.0" encoding="utf-16"?>
<NFe xmlns="http://www.portalfiscal.inf.br/nfe">
  <enviNFe xmlns="http://www.portalfiscal.inf.br/nfe">
    <idLote>1</idLote>
  </enviNFe>
resto do codigo

Veja, tenho dois problemas: -O enviNFe tem que ficar 1 linha acima e o NFe tem que decer uma linha. -O enviNFe tem que ser fechado na ultima linha, como eu faço para fechalo na ultima linha ?

xmlDoc.LoadXml(XMLAssinado)
        Dim root As XmlNode = xmlDoc.DocumentElement
        Dim elem As XmlElement = xmlDoc.CreateElement("enviNFe", "")
        elem.SetAttribute("xmlns", "http://www.portalfiscal.inf.br/nfe") ' AP02 - Versão
        root.InsertBefore(elem, root.FirstChild)

        Dim wLote As XmlElement = xmlDoc.CreateElement("idLote", "")
        wLote.InnerText = 1
        elem.AppendChild(wLote)

Este codigo acima faz com que a enviNFe fique na terceira linha, teria que ficar na 2 linha e o </enviNFe> deveria ficar na ultima linha, alguém sabe o que está errado no codigo ? Rafael Fernandes D Orazio