VB6 XML解析问题

下面是需要解析的XML,如何能将每一项的name及valueString的values值解析出来
<Parameters xmlns="http://hl7.org/fhir">
<parameter>
<name value="code"/>
<valueString value="0"/>
</parameter>
<parameter>
<name value="message"/>
<valueString value=""/>
</parameter>
<parameter>
<name value="data"/>
<resource>
<Parameters>
<parameter>
<name value="virtualCardNum"/>
<valueString value="1000001"/>
</parameter>
<parameter>
<name value="eHealthID"/>
<valueString value="1111"/>
</parameter>
<parameter>
<name value="openId"/>
<valueString value="1111"/>
</parameter>
<parameter>
<name value="QRCode"/>
<valueString value="1111"/>
</parameter>
<parameter>
<name value="realname"/>
<valueString value="NAME"/>
</parameter>
<parameter>
<name value="type"/>
<valueString value="01"/>
</parameter>
<parameter>
<name value="idNumber"/>
<valueString value="1111"/>
</parameter>
<parameter>
<name value="cellphone"/>
<valueString value="1111"/>
</parameter>
<parameter>
<name value="gender"/>
<valueString value="1"/>
</parameter>
<parameter>
<name value="addr"/>
<valueString value="地址"/>
</parameter>
<parameter>
<name value="SMZ"/>
<valueString value="1"/>
</parameter>
<parameter>
<name value="birthday"/>
<valueString value="出生日期"/>
</parameter>
<parameter>
<name value="orgCode"/>
<valueString value="610424"/>
</parameter>
<parameter>
<name value="insertTime"/>
<valueString value="2018-1-20 15:02:31"/>
</parameter>
</Parameters>
</resource>
</parameter>
</Parameters>