Как вывести все значения из XML-файла - VB

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

Вобщем есть некий файл msgs.xml

                    Листинг программы
                
<msgs>
<message category=''cat1''>
текст сообщения
<message category=''cat2''>
текст сообщения
</msgs>

помогите написать програмку которая нажатием кнопки выводит все сообщения принадлежащие к 1 из категорий. и отдельно клавишу вывода всех сообщений. Заранее спасибо

Решение задачи: «Как вывести все значения из XML-файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim XmlDoc As DOMDocument
 
Private Sub Command1_Click()
    Dim xmlNodes As IXMLDOMNodeList
    Dim xmlNode As IXMLDOMElement
    Text1.Text = ""
    Set xmlNodes = XmlDoc.selectNodes("//message")
    For Each xmlNode In xmlNodes
        If xmlNode.getAttribute("category") = "cat1" Then
            Text1.Text = Text1.Text & xmlNode.nodeTypedValue & vbCrLf
        End If
    Next xmlNode
End Sub
 
Private Sub Command2_Click()
    Dim xmlNodes As IXMLDOMNodeList
    Dim xmlNode As IXMLDOMElement
    Text1.Text = ""
    Set xmlNodes = XmlDoc.selectNodes("//message")
    For Each xmlNode In xmlNodes
        Text1.Text = Text1.Text & xmlNode.nodeTypedValue & vbCrLf
    Next xmlNode
End Sub
 
Private Sub Form_Load()
    Set XmlDoc = CreateObject("Msxml2.DOMDocument")
    XmlDoc.Load App.Path & "\Test.xml"
End Sub