VB Script: How to read xml node

Dim xmlDoc, objNodeList, plot

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.load("c:\inetpub\wwwroot\test.xml")
Set bjNodeList = xmlDoc.getElementsByTagName("description")

If objNodeList.length > 0 then
For each x in objNodeList
plot=x.Text
msgbox plot
Next
Else
msgbox chr(34) & "description" & chr(34) & " field not found."
End If

-----------------------------------------

Dim description, filepath

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.load("c:\test.xml")

Set ElemList = xmlDoc.getElementsByTagName("segment")
filepath = ElemList.item(0).getAttribute("filePath")
MsgBox filepath

Set ElemList = xmlDoc.getElementsByTagName("description")
plot = ElemList.item(0).Text
MsgBox plot