Navigate to Content in XML

Demonstrates how to retrieve "Bears" from the following XML:

<?xml version="1.0" encoding="utf-8" ?>

<sports>
    <baseball>
        <mlb>
            <chicago>Cubs</chicago>
            <new_york>Yankees</new_york>
        </mlb>
    </baseball>
    <football>
        <chicago>Bears</chicago>
        <new_york>Jets</new_york>
    </football>
    <basketball>
        <chicago>Bulls</chicago>
        <new_york>Knicks</new_york>
    </basketball>
</sports>

Download Chilkat XML ActiveX

Dim xml As New ChilkatXml

'  Assume the XML is contained in the file: sports.xml
Dim success As Long
success = xml.LoadXmlFile("sports.xml")
If (success <> 1) Then
    Text1.Text = Text1.Text & xml.LastErrorText & vbCrLf
    Exit Sub
End If

Dim xml2 As ChilkatXml
Dim xml3 As ChilkatXml

Set xml2 = xml.GetChildWithTag("football")

Set xml3 = xml2.GetChildWithTag("chicago")

Text1.Text = Text1.Text & xml3.Content & vbCrLf