How to get values under specific node from XML using VB

See more:

VB

XML

I Have the sample XML, where I need to write the "DELAY" details under. Schedule table>Lin schedule table>table entrys for each "LIN-CLUSTER" respectively to excel.

I have tried the code, but it is writing all the schedule table details irrespective of cluster name. Please help how to write according to each cluster in each loop

Please ignore the indentations. I am using in mobile.

Sample XML

<lin-cluster>
  <short-name>LIN4
  <lin-cluster-variants>
    <lin-cluster-conditional>
       <baudrate>19200
       <physical-channels>
          <lin-physical-channel>
              <short-name>ML4       
              <schedule-tables>
                 <lin-schedule-table>
                    <short-name>RUN                
                   <table-entrys>
                      <application -="" entrys="">
                         <delay>0.01
                     
                  
                <lin-schedule-table>
             
         
       
     
   


 
<lin-cluster>
  <short-name>LIN4
  <lin-cluster-variants>
    <lin-cluster-conditional>
       <baudrate>19200
       <physical-channels>
          <lin-physical-channel>
              <short-name>ML4       
              <schedule-tables>
                 <lin-schedule-table>
                    <short-name>RUN                
                   <table-entrys>
                      <application -="" entrys="">
                         <delay>0.01
                     
                  
                <lin-schedule-table>
             
         
       
     
   


<lin-cluster>
  <short-name>LIN4
  <lin-cluster-variants>
    <lin-cluster-conditional>
       <baudrate>19200
       <physical-channels>
          <lin-physical-channel>
              <short-name>ML4       
              <schedule-tables>
                 <lin-schedule-table>
                    <short-name>RUN                
                   <table-entrys>
                      <application -="" entrys="">
                         <delay>0.01
                     
                  
                <lin-schedule-table>

What I have tried:

Dim OXMLDOC As Object= Nothing
oXMLDOC = CreateObject. 
                                  ("Microsoft.XMLDOM")
OXMLDOC.Load("sample.xml")

nodes1=OXMLDOC.SelectNodes("//LIN- 
                                                   CLUSTER")
For each node1 in nodes1
   For each node2 in node1.ChildNodes
       If node2.tagName="SHORT-NAME" 
                                                                  Then
            xlSH.Cells(iRow,1) =node2.Text
      ElseIf node2.tagName="LIN-CLUSTER- 
                                             VARIANTS" Then
            nodes3=node2.SelectNodes("//LIN-CLUSTER-VARIANTS/LIN-CLUSTER-CONDITIONAL/PHYSICAL-CHANNELS/LIN-PHYSICAL-CHANNEL/SCHEDULE-TABLES/LIN-SCHEDULE-TABLE/*")
           For each node3 in nodes3 
               If node3.tagName="SHORT- 
                                                             NAME"
                    xlSH.Cells(iRow,4)=node3.text
               ElseIf node3.tagName="TABLE- 
                                                        ENTRYS"           
                    nodes4=node3.SelectNode("(APPLICATION-ENTRY|ASSIGN-FRAME-ID|ASSIGN-FRAME-ID-RANGE)/*)
                    For each node4 in nodes4
                        If node4.tagName="DELAY" 
                                                             Then                  
                             xlSH.Cells(iRow,5) = 
                                                        node4.text
                        End If
                    Next
 
              End If
           Next
      End If
   Next
Next