Private Sub test()
Dim oXML As New Xml.XmlDocument
Dim oNode As Xml.XmlNodeList
Dim sRoot As String
Dim sFile As String
Try
sRoot = System.Windows.Forms.Application.StartupPath
sFile = "Test.xml"
oXML.Load(sRoot & "" & sFile)
oNode = oXML.SelectNodes("Test/SubTest[@value=""AttValue01""]")
For Each oEle As System.Xml.XmlElement In oNode
MsgBox(oEle.OuterXml)
Next
Catch ex As Exception
MsgBox(ex.ToString)
Finally
oXML = Nothing
oNode = Nothing
End Try
End Sub
