ENVIAR XML PARA A NFE

Dim strRetorno As String
Dim xmldoc = New XmlDocument()
xmldoc.Load([Ô]c:    esteXML.xml[Ô]) [ô]Carrega o arquivo XML 
Dim CERT As X509Certificate2 
CERT = BuscaNroSerie([Ô][Ô]) [ô]rotina para buscar o certificado usado


Dim wsMsg As NfeRecepcao
Dim wsCabecMsg As String
Dim dados As String

[ô]cabeçalho do ws
wsCabecMsg = [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô] ?><cabecMsg xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]1.02[Ô][Ô]><versaoDados>1.10</versaoDados></cabecMsg>[Ô]


wsMsg = New NfeRecepcao()

wsMsg.Timeout = 100000
wsMsg.ClientCertificates.Add(cert) [ô]adiciona o certificado na conexão
wsMsg.SoapVersion = SoapProtocolVersion.Soap12
dados = xmldoc.OuterXml 

strRetorno = wsMsg.nfeRecepcaoLote(wsCabecMsg, dados) [ô]envia seu arquivo xml para o webservice e retorna o resultado

    Public Sub GerarLoteNfe(ByRef documentoXML As XmlDocument)
        Dim cVersaoDados As String = [Ô]1.10[Ô]

        [ô]Montar a string da Nfe a ser montado o Lote
        Dim vNfeDadosMsg As String = documentoXML.OuterXml

        [ô]Pegar o último número de lote de NFe utilizado e acrescentar + 1 para novo envio
        Dim vArqXmlLote As String = [Ô]TryNfeLote.xml[Ô]
        Dim nNumeroLote As Int32 = 1

        If File.Exists(vArqXmlLote) Then
            Dim oLerXml As New XmlTextReader(vArqXmlLote)

            While oLerXml.Read()
                If oLerXml.NodeType = XmlNodeType.Element Then
                    If oLerXml.Name = [Ô]UltimoLoteEnviado[Ô] Then
                        oLerXml.Read()
                        nNumeroLote = Convert.ToInt32(oLerXml.Value) + 1
                        Exit While
                    End If
                End If
            End While
            oLerXml.Close()
        End If

        [ô]Salvar o número de lote de NFe utilizado
        Dim oSettings As New XmlWriterSettings()
        oSettings.Indent = True
        oSettings.IndentChars = [Ô][Ô]
        oSettings.NewLineOnAttributes = False
        oSettings.OmitXmlDeclaration = False

        Dim oXmlGravar As XmlWriter = XmlWriter.Create([Ô]TryNfeLote.xml[Ô], oSettings)

        oXmlGravar.WriteStartDocument()
        oXmlGravar.WriteStartElement([Ô]DadosLoteNfe[Ô])
        oXmlGravar.WriteElementString([Ô]UltimoLoteEnviado[Ô], nNumeroLote.ToString())
        oXmlGravar.WriteEndElement()
        [ô]DadosLoteNfe
        oXmlGravar.WriteEndDocument()
        oXmlGravar.Flush()
        oXmlGravar.Close()

        [ô]Separar somente o conteúdo a partir da tag <NFe> até </NFe>
        Dim nPosI As Int32 = vNfeDadosMsg.IndexOf([Ô]<NFe[Ô])
        Dim nPosF As Int32 = vNfeDadosMsg.Length - nPosI
        Dim vStringNfe As String = vNfeDadosMsg.Substring(nPosI, nPosF)

        [ô]Montar a parte do XML referente ao Lote e acrescentar a Nota Fiscal
        Dim vStringLoteNfe As String = String.Empty
        vStringLoteNfe += [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]utf-8[Ô][Ô]?>[Ô]
        vStringLoteNfe += [Ô]<enviNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] xmlns:ds=[Ô][Ô]http://www.w3.org/2000/09/xmldsig#[Ô][Ô] xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] versao=[Ô][Ô][Ô] & cVersaoDados & [Ô][Ô][Ô]>[Ô]
        vStringLoteNfe += [Ô]<idLote>[Ô] & nNumeroLote.ToString([Ô]000000000000000[Ô]) & [Ô]</idLote>[Ô]
        vStringLoteNfe += vStringNfe
        vStringLoteNfe += [Ô]</enviNFe>[Ô]

        [ô]return vNomeArqLoteNfe;
        documentoXML.LoadXml(vStringLoteNfe)
    End Sub