ValidaCFD

Hola
Tengo que realizar una addenda para Qualitas y me piden el ultmio apartado con el siguiente formato

<Personalizados>
<campoString name=" Solicitante"></campoString>
<campoString name="NomSolicitante "></campoString>
<campoString name="oficinaEntregaFactura">064</campoString>
<campoString name="folioElectronico">000954264</campoString>
<campoString name="Default1">string</campoString>
<campoString name="Default2">string</campoString>
</Personalizados>

Estoy programando en VB6, pero ya me quebre la cabeza y no logro crear ese formato, alguien puede ayudarme?

Quiero aumentar ma informacion, utilizo este codigo:
Set QuaPersonali_element = Parent_node.ownerDocument.createElement("Personalizados")
QuaEcfd_element.appendChild QuaPersonali_element


Set CampoString1_element = QuaPersonali_element.appendChild(QuaPersonali_element.ownerDocument.createElement("CampoString"))
QuaPersonali_element.appendChild CampoString1_element

Set CampoString1_element = Parent_node.ownerDocument.createElement("CampoString")
QuaPersonali_element.appendChild CampoString1_element
CampoString1_element.setAttribute "name", "Solicitante"

NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre1
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre2
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre3
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!Nombre4
If IsNull(rsDoc!cargo2) = False Then
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!cargo2
End If
If IsNull(rsDoc!cargo3) = False Then
NodoHijo 4, QuaPersonali_element, "campoString", rsDoc!cargo3
End If

en donde nodohijo es

Private Sub NodoHijo(ByVal indent As Integer, ByVal parent As IXMLDOMNode, ByVal node_name As String, ByVal node_value As String)
Dim new_node As IXMLDOMNode
parent.appendChild parent.ownerDocument.createTextNode(Space$(indent))
Set new_node = parent.ownerDocument.createElement(node_name)
new_node.Text = node_value
parent.appendChild new_node

End Sub

Y el Resultado es el Siguiente:

- <Personalizados>
<CampoString />
<CampoString name="Solicitante" />
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString>5</campoString>
<campoString />
</Personalizados>

Espero que esto sirva para aclarar mi solicitud