Read an XML document using VBA

[bobjones122]

I want to be able to parse through an xml document and in the example below, I'm just extracting the data between nodes to a message box. I want to be able to iterate through each node (for the first 10).

Sub x()
Dim strBeginTag As String
Dim strEndTag As String
Dim intUnit As Integer
Dim strBuf As String
Dim count As Integer

intUnit = FreeFile
Open "C:\Documents and Settings\me\Desktop\myDoc.xml"

For Input As intUnit
strBuf = Input(LOF(intUnit), #intUnit)
Close intUnit

For count = 0 To 10
strBeginTag = "<node>"
strEndTag = "</node>"
MsgBox ExtractBetween(strBeginTag, strEndTag, strBuf)
Next count
End Sub

'Below this i have the code to extract the data between nodes. This currently only reads the first node. Is the any way to continue reading the rest of the nodes in the xml?

[SammyB]

I woukd suggest using MSXML as a parser, see http://msdn2.microsoft.com/en-us/library/aa163921(office.10).aspx