Чтение XML - VB

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

Hallo всем! Пришлось заняться чтением XML. Упрощенно - что-то типа: Код:

     Dim xmlDoc As MSXML2.DOMDocument30 
       Set xmlDoc = New DOMDocument30 
       xmlDoc.async = False 
       xmlDoc.validateOnParse = False 
       xmlDoc.Load ("F:\da1034.xml") 
       Dim objNode As IXMLDOMNode 
       Dim objListOfNodes As IXMLDOMNodeList 
       xmlDoc.setProperty "SelectionLanguage", "XPath" 
       Set objNode = xmlDoc.selectSingleNode("/DECLAR/DECLARHEAD/C_REG")  
       Text1.Text = Text1.Text + objNode.Text 
 .........

И здесь мне в цикле надо прочесть значения в тэгах типа:

<T1RXXXXG2 ROWNUM="3">1480403274</T1RXXXXG2>

с разными значениями атрибута ROWNUM, причем заведомо неизвестно, как они записаны, т е в принципе могут быть и

<T1RXXXXG2 ROWNUM="123">1480403274</T1RXXXXG2>

<T1RXXXXG2 ROWNUM="000123">1480403274</T1RXXXXG2>

1) Как организовать такое чтение?? 2) Тэги с некоторыми значениями могут отсутствовать (т е не пустые, а вообще их нет) - например есть

<T1RXXXXG2 ROWNUM="3">1480403274</T1RXXXXG2>

<T1RXXXXG2 ROWNUM="5">2222222222</T1RXXXXG2>

, а

:cry::cry:

отсутствует. Как определить эту ситуацию? И вообще кто может подсказать удачн ствтьи по работе с XML в VB6? Кроме По материалам статьи Leon Platt: XML IN 20 MINUTES! Перевод Максима Зубова. Буду всем очень признательна!!

Решение задачи: «Чтение XML»

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

                            Dim ConfigFile As IO.FileInfo = New IO.FileInfo("C:\config.xml")
        If ConfigFile.Exists Then
            Dim myXml As New System.Xml.XPath.XPathDocument("C:\config.xml")
            Label1.Text = myXml.CreateNavigator.SelectSingleNode("/config/data/@name").Value
        Else
            Label1.Text = "Необходимо произвести настройки"
        End If
                        