Parsing XML Help

[john3j]

I have the following XML code:

<?xml version="1.0" ?>
<NessusClientData_v2>
<Policy><policyName>Full Scan</policyName>
<Preferences><ServerPreferences><preference><name>plugin_set</name>
<value>16775;16066;...</value>
</preference>
<preference><name>TARGET</name>
<value>192.168.0.1</value>
</preference>
</ServerPreferences>
<Preferences>
</NessusClientData_V2>

I am trying to utilize the following code to show "192.168.0.1" in a message box, but I am apparently doing something wrong. Here is my code:

Sub ParseXML(fname, IP)
Set oXMLFile = CreateObject("Microsoft.XMLDOM")
oXMLFile.Load (fname)
Set MyNode = oXMLFile.SelectSingleNode("/NessusClientData_v2/Preferences/ServerPreferences/Preference[../name='TARGET']/text")
If Not MyNode Is Nothing Then
MsgBox MyNode.Text
End If

If anyone could help me figure out what I am doing wrong, I would appreciate it. I am using Microsoft Excel 2010. I am not getting an error or a message box of any kind.

[p45cal]

I don't know the best way to do this but this seems to work:

Set myNode = oXMLFile.SelectSingleNode("NessusClientData_v2/Policy/Preferences/ServerPreferences/preference/name[../name = 'TARGET']")
    If Not myNode Is Nothing Then
       ' MsgBox myNode.ParentNode.ChildNodes(1).Text
        MsgBox myNode.NextSibling.Text
    End If

[john3j]

p45cal,

As always, that worked great! I appreciate your time trying to help me figure this out. You are a genius!