Hola,pues mira basicamente se puede crear con una libreria llamada
Microsoft XML version x.xx,tambien con esta libreria se puede leer los mismos,y bueno algo asi seria:
Código:
Private Sub Command1_Click()
Dim oDom As New MSXML2.DOMDocument30
Dim oElement As MSXML2.IXMLDOMElement
Dim oNode As MSXML2.IXMLDOMNode
Dim oNodeList As MSXML2.IXMLDOMNodeList
With oDom
Set oNode = .appendChild(.createElement("cliente"))
Set oNode = oNode.appendChild(.createElement("nombre"))
oNode.Text = "sebastian"
End With
oDom.save "c:\ejemplo.xml"
Set oNodeList = oDom.selectNodes("//cliente")
Set oNode = oDom.selectSingleNode("/nombre/cliente")
Set oDom = Nothing
Set oNodeList = Nothing
Set oNode = Nothing
End Sub
saludos.