[RESOLVED] Extracting specific values from XML Results

[dlscott56]

So far I'm able to get data using the following code. However, it seems a like there would be an easier/better way to do it.

Sub ParseXmlDocument()
   Dim doc As New MSXML2.DOMDocument
   Dim x As Object
   Dim NodeIndex As Integer
    
   Dim success As Boolean

   NodeIndex = 0
   success = doc.loadXML(txtResponse.Text)
   
   For Each x In doc.getElementsByTagName("Name")
    If x.nodeTypedValue = "User_ID" Then
        Exit For
    End If
    NodeIndex = NodeIndex + 1
   Next

   MsgBox "User located at node " & NodeIndex & " = " & doc.getElementsByTagName("Value").Item(NodeIndex).childNodes(0).nodeValue
End Sub