Read XML file with several level

I need to read data from an XML file and am struggling to loop through the different levels.

Program loops through the first Mix record but not subsequent ones.

In this case the XML is in levels - I need information for each Component but also need related info from the mix. I have tried many variations on reading this but carn't get it to loop through correctly. There could be multiple jobs and mixes for each job.

Be glad of any help on this or direction - XML file attached and my vb code below:-

        Dim settings As New XmlReaderSettings
        settings.IgnoreWhitespace = True
        settings.IgnoreComments = True
        Dim xmlIn As XmlReader = XmlReader.Create("Test.xml", settings)
        Dim intCounter As Integer
        Dim strCode As String = ""
        Dim strStkCode As String = ""
        Dim intMixCounter As Integer
        Dim intCompCount As Integer
        Dim strJobNo As String = ""
        Dim dblWeight As Double = 0
        Dim strMixDate As String

        xmlIn.MoveToContent()
        If xmlIn.ReadToDescendant("Job") Then
            Do
                If xmlIn.ReadToDescendant("Mix") Then
                    Do
                        xmlIn.ReadStartElement("Mix")
                        intMixCounter = (xmlIn.ReadElementString("MixCounter"))
                        strCode = (xmlIn.ReadElementString("MixJobNumber"))
                        strMixDate = (xmlIn.ReadElementString("MixedDate"))
                        xmlIn.ReadToFollowing("ComponentCount")
                        intCompCount = (xmlIn.ReadElementString("ComponentCount"))

                        'xmlIn.ReadToFollowing("Components")

                        If xmlIn.ReadToDescendant("Component") Then
                            Do
                                xmlIn.ReadStartElement("Component")
                                intCounter = (xmlIn.ReadElementString("ComponentCounter"))
                                xmlIn.ReadToFollowing("ComponentKG")
                                dblWeight = (xmlIn.ReadElementString("ComponentKG"))
                                'Will write code here using info on each component / mix
                            Loop While xmlIn.ReadToNextSibling("Component")
                        End If
                    Loop While xmlIn.ReadToNextSibling("Mix")
                End If
            Loop While xmlIn.ReadToNextSibling("Job")
        End If
Test3.xml