XML Experts, pls Help...

[mpSmooth]

I'm having some trouble with XML. In my application, I have a combo box populated with all of the Presentation_Name element's text added to the combo box. Now, when I select a presentation name from the combo box, another combobox right below the first one, gets populated with all of the messages that fall under the Presentation_Name. For Example, if I select Return Policy from the combo box, the combo box below it gets populated with only one message, "CC Regarding return policy"

This is what I got so far:
Thank You

Option Explicit
Dim xmlNote As New DOMDocument
Dim xmlNode As IXMLDOMNode
 
Private Sub PopulateAddNotes()
    '// Load XML into DOM Object
    xmlNote.Load "C:\Notes.xml"
    
    '// Populate combo box with all presentation names
    For Each xmlNode In xmlNote.documentElement.selectNodes("//PRESENTATION_NAME")
        Combo1.AddItem xmlNode.Text
    Next
End Sub

Private Sub Combo1_Click()
    Dim strNoteType As String
    Dim xmlNodeList As IXMLDOMNodeList
        
    strNoteType = Combo1.Text
    Set xmlNodeList = xmlNote.documentElement.selectNodes("//PRESENTATION_NAME")
        
    For Each xmlNode In xmlNodeList
        If xmlNode.Text = strNoteType Then
            Combo2.AddItem xmlNode.parentNode.selectSingleNode("MESSAGES/MESSAGE/COMBO_NAME").Text
            Text1.Text = xmlNode.parentNode.selectSingleNode("MESSAGES/MESSAGE/TEXT_NAME").Text
        End If
    Next
End Sub

<NOTES>
    <NOTE ID="104">		
        <PRESENTATION_NAME>Return Policy</PRESENTATION_NAME>
	    <MESSAGES>
	        <MESSAGE>
		    <COMBO_NAME>CC Regarding return policy</COMBO_NAME>     		    
		</MESSAGE>
	    </MESSAGES>		
	<PRESENTATION_NAME>Delivery Inquiry</PRESENTATION_NAME>				
	    <MESSAGES>
		<MESSAGE>
		    <COMBO_NAME>CC Regarding delivery timing</COMBO_NAME>		    
		</MESSAGE> 
		<MESSAGE>
		    <COMBO_NAME>CC Regarding delivery options</COMBO_NAME>		    
		</MESSAGE>
		<MESSAGE>
		    <COMBO_NAME>CC Regarding delivery fees</COMBO_NAME>		    
		</MESSAGE>
	    </MESSAGES>	
    </NOTE>
</NOTES>

[MartinLiss]

In this code

For Each xmlNode In xmlNodeList
        If xmlNode.Text = strNoteType Then
            Combo2.AddItem xmlNode.parentNode.selectSingleNode("MESSAGES/MESSAGE/COMBO_NAME").Text
            Text1.Text = xmlNode.parentNode.selectSingleNode("MESSAGES/MESSAGE/TEXT_NAME").Text
        End If
    Next

you are overwriting the text in Text1 each time you go through the loop. You need to do something like

For Each xmlNode In xmlNodeList
        If xmlNode.Text = strNoteType Then
            Combo2.AddItem xmlNode.parentNode.selectSingleNode("MESSAGES/MESSAGE/COMBO_NAME").Text
            Text1.Text = Text1.Text  & " " & xmlNode.parentNode.selectSingleNode("MESSAGES/MESSAGE/TEXT_NAME").Text
        End If
    Next