Dim xml As New ChilkatXml

' The Chilkat XML component is freeware.

xml.Tag = "product"

Dim xNode0 As ChilkatXml
Set xNode0 = xml.NewChild("properties","")

Dim xChild As ChilkatXml
Set xChild = xNode0.NewChild("price","")
xChild.AddAttribute "SellPrice","11.99"

Set xChild = xNode0.NewChild("price","")
xChild.AddAttribute "BasePrice","11.99"

Text1.Text = Text1.Text & xml.GetXml() & vbCrLf
Text1.Refresh

' Prints this:
' <product>
' <properties>
' <price SellPrice="11.99"></price>
' <price BasePrice="11.99"></price>
' </properties>
' </product>