loop i xml fil som er loadet

' ------------------- Form1 -------------------
Option Explicit

Private Sub Form_Load()
Dim entry As Object
Dim xmldoc As Object
Dim channelNodes As Object

  Set xmldoc = CreateObject("MSXML2.DOMDocument")
  xmldoc.async = False
  xmldoc.Load "C:\test.xml" ' <- Husk at ændre Path

  If xmldoc.ReadyState = 4 Then
    Set channelNodes = xmldoc.selectNodes("//person/data/*")
   
    For Each entry In channelNodes
      Select Case entry.tagName
            Case "navn"
              MsgBox "navn: " & entry.Text
            Case "alder"
              MsgBox "alder: " & entry.Text
      End Select
    Next

    Set entry = Nothing
    Set channelNodes = Nothing
  End If
 
  Set xmldoc = Nothing
End Sub
' ------------------- Form1 -------------------

Din XML-file


<?xml version="1.0" encoding="ISO-8859-1" ?>
<person>
  <data>
    <navn>Thomas</navn>
    <alder>18</alder>
  </data>
  <data>
    <navn>Jensen</navn>
    <alder>18</alder>
  </data>
</person>

takker :)

selv tak ;)