Разбор / парсинг XML - VB

Формулировка задачи:

Имеется XML файл:

<?xml version="1.0" encoding="WINDOWS-1251"?>
<ФайлПФР>
    <СПИСОК_НА_ЗАЧИСЛЕНИЕ>
        <СведенияОполучателе>
            <ФИО>
                <Фамилия>ИВАНОВ</Фамилия>
                <Имя>ИВАН</Имя>
                <Отчество>ИВАНОВИЧ</Отчество>
            </ФИО>
            <НомерСчета>40817810470000000000</НомерСчета>
            <ВсеВыплаты>
                <Количество>2</Количество>
                <Выплата>
                    <СуммаКвыплате>10015.16</СуммаКвыплате>
                </Выплата>
                <Выплата>
                    <СуммаКвыплате>1922.73</СуммаКвыплате>
                </Выплата>
            </ВсеВыплаты>
        </СведенияОполучателе>
        <СведенияОполучателе>
            <ФИО>
                <Фамилия>ПЕТРОВ</Фамилия>
                <Имя>ИВАН</Имя>
                <Отчество>ИВАНОВИЧ</Отчество>
            </ФИО>
            <НомерСчета>40817810470000000001</НомерСчета>
            <ВсеВыплаты>
                <Количество>1</Количество>
                <Выплата>
                    <СуммаКвыплате>815.16</СуммаКвыплате>
                </Выплата>
            </ВсеВыплаты>
        </СведенияОполучателе>
    </СПИСОК_НА_ЗАЧИСЛЕНИЕ>
</ФайлПФР>

Нужно его распарсить и в файл записать. Написал гомнокод:

            Dim oXML  As New MSXML2.DOMDocument30
            Dim fio, tree As String
            
            tree = "*/СПИСОК_НА_ЗАЧИСЛЕНИЕ/СведенияОполучателе"
            Set oXML = New DOMDocument30
            oXML.async = False
            oXML.validateOnParse = False
            oXML.Load ww
            For iSved = 0 To oXML.getElementsByTagName(tree).Length
                fio = oXML.getElementsByTagName(tree + "/ФИО/Фамилия").Item(iSved).Text + " " + oXML.getElementsByTagName(tree + "/ФИО/Имя").Item(iSved).Text + " " + oXML.getElementsByTagName(tree + "/ФИО/Отчество").Item(iSved).Text
                sh = oXML.getElementsByTagName(tree + "/НомерСчета").Item(iSved).Text
                For iVyplat = 0 To oXML.getElementsByTagName(tree + "/ВсеВыплаты/Выплата").Length 
                    s = oXML.getElementsByTagName(tree + "/ВсеВыплаты/Выплата/СуммаКвыплате").Item(iVyplat).Text
                    
                    Ws = Mid(Trim(CStr(5 / 2)), 2, 1)
                    s = Replace(s, ".", Ws)
                    s = Replace(s, ",", Ws)
                    s = Replace(s, "-", Ws)
                
                    p = fio + sh + s + sDay
                
                    Print #1, AnsiToOem(p, 0, False)
                Next
            Next

На втором цикле

for

получаем, что элементов "*/СПИСОК_НА_ЗАЧИСЛЕНИЕ/СведенияОполучателе/ВсеВыплаты/Выплата"

и при первом же проходе первого

for

у нас считываются все Выплаты, в независимости от Получателя. Как же считать только выплаты по текущему Получателю?

Чую, что нужно использовать

For Each ... Next

For Each oXML.getElementsByTagName(tree + "/ВсеВыплаты/Выплата") In oXML.getElementsByTagName(tree).Item(iSved)

не канает... Это уже голова пухнет...

Решение задачи: «Разбор / парсинг XML»

textual
                            Листинг программы 
                        

                            Private Sub Pars()
    Dim Sp, t, s As String, tmp As String
    Const tree As String = "ФайлПФР/СПИСОК_НА_ЗАЧИСЛЕНИЕ/СведенияОполучателе"
    Dim i As Integer, j As Integer, k As Integer
    Dim XmlBody
    Set XmlBody = CreateObject("Microsoft.XMLDOM")
    XmlBody.Async = "False"
    XmlBody.Load (App.Path & "\1.xml") 'Путь по которому находится файл XML
    Set Sp = XmlBody.SelectNodes(tree) 'Sp - Сведения о Получателе
    For i = 0 To Sp.length - 1
       t = Split(Sp.Item(i).Text)
       tmp = ""
       For j = 1 To CInt(t(4))
           tmp = tmp & j & ".  " & t(4 + j) & vbCrLf
       Next j
       s = s & t(0) & " " & t(1) & " " & t(2) & vbCrLf & "Номер счёта " & t(3) & vbCrLf & _
           "Количество выплат " & t(4) & vbCrLf & tmp & vbCrLf
     Next
     MsgBox s
End Sub
                        