大家看一下这个xml如何用vb读取？？？？

<?xml version="1.0" encoding="utf-8" ?> 
 <ActivitySet>
 <Activity>
  <Title>标题1</Title> 
  <Description>描述1</Description> 
  <Goods>
  <Name>姓名1</Name> 
  <Description>Goods描述1</Description>
  </Goods>
 </Activity>
 <Activity>
  <Title>标题2</Title> 
  <Description>描述2</Description> 
  <Goods>
  <Name>姓名2</Name> 
  <Description>Goods描述2</Description>
  </Goods>
 </Activity>
  </ActivitySet>程序片段如下：
    Dim SendStr As String, XMLrandom As String
    Dim XMLObject
    Set XMLObject = CreateObject("Microsoft.XMLHTTP")
    
    XMLObject = SaveRemoteXML(WebURL)
    
    Set XMLMorntekDocument = CreateObject("Microsoft.XMLDOM")
    XMLMorntekDocument.async = False
    XMLMorntekDocument.validateOnParse = True
    XMLMorntekDocument.Load (XMLObject)
    
    Dim oXMLNodeList As MSXML2.IXMLDOMNodeList
    Dim oXMLNode As MSXML2.IXMLDOMNode
        
        Set oXMLNodeList = XMLMorntekDocument.selectNodes("//Activity") '****
        For Each oXMLNode In oXMLNodeList          Set value_node = oXMLNode.selectSingleNode(".//Description")value_node 的值为“描述1”或者“描述2”，请问我现在想读取“Goods描述1”或者“Goods描述2”，请问如何实现？？