Error e Addenda generica con xml v2.2

[rayamador]

Buen día tengo mi xml v. 2.2 generado por mi sistema y cuando le pongo la adenda genrica me marca un error al quererla timbrer dice que una variable de tipo null no se puede convertir a integer.

A que se debera esto.

[Dado]

No dejes campos vacios, checa bien el error para ver si te indica en que campo dejaste un dato vacio

[rayamador]

Todos mis campos contienen información de hecho son dos observaciones y vendedor solamente.

[Dado]

Sube como adjunto el XML ya que sin él tendria que ser adivino para saber donde esta el error

[rayamador]

aqui est a el xml

[Dado]

Esta mal creada la Addenda Generica, checala tiene mal el nodo de cierre

Tambien revisa el Certificado, esta vencido desde el 27-dic del 2012

[rayamador]

Al quererla timbrar me manda el mismo error

[Dado]

Ya descubri el error, esta en la parte en la que convierte de Version 2.2 a V3.2 para el timbrado

Entonces deja hago las correcciones y te aviso

[rayamador]

Buenas tardes tengo un problemita haber si me puedes acesorar mira tengo el sig codigo en vb6 para creal los nodos de la addenda generica pero no em cierra el nodo de addenda:generica
Dim NdAddenda As MSXML2.IXMLDOMElement 'Nodo Addenda
Set NdAddenda = doc.createNode(NODE_ELEMENT, "Addenda", Me.xmlns)
Dim NdgenericaDE As MSXML2.IXMLDOMElement
Dim NdgenericaD As MSXML2.IXMLDOMElement
Dim NdgenericaD1 As MSXML2.IXMLDOMElement

Set NdgenericaDE = doc.createNode(NODE_ELEMENT, "generica:DatosExtra", xmlnsg) 'Me.xmlns)

Dim NdgenericaAddenda As MSXML2.IXMLDOMElement
Set NdgenericaAddenda = doc.createNode(NODE_ELEMENT, "generica:Addenda", xmlnsg)
''NODO DATO EXTRA
NdAddenda.appendChild NdgenericaAddenda
Set NdgenericaD = doc.createNode(NODE_ELEMENT, "generica:Dato", xmlnsg) 'Me.xmlns)
With NdgenericaD
.setAttribute "Nombre", Addenda.Nombre
.setAttribute "Valor", Addenda.Valor
End With
NdgenericaDE.appendChild NdgenericaD ''AGREGAR EL NODO NdgenericaDA AL NODO NdgenericaDE

Set NdgenericaD1 = doc.createNode(NODE_ELEMENT, "generica:Dato", xmlnsg) 'Me.xmlns)
With NdgenericaD1
.setAttribute "Nombre", Addenda.Nombre1
.setAttribute "Valor", Addenda.Valor1
End With
NdgenericaDE.appendChild NdgenericaD1 ''AGREGAR EL NODO NdgenericaD1 AL NODO genericaDE

NdAddenda.appendChild NdgenericaDE 'AGREGAR EL NODO NdgenericaDE AL NODO addenda
End If

NdCom.appendChild NdAddenda
y la salida que me da es:
<Addenda>
<generica:Addenda xmlns:generica="http://www.validacfd.com/generica"/>
<generica:DatosExtra xmlns:generica="http://www.validacfd.com/generica">
<generica:Dato Nombre="Observaciones" Valor="Gastos de envio en la sig Factura"/>
<generica:Dato Nombre="Vendedor" Valor="APM"/>
</generica:DatosExtra>
</Addenda>

espero y me puiedas acesorar

Gracias.

[Dado]

Siento decirte que no programo en Visual Basic, no tengo ni idea de como corregirlo