Function getValue(tagname,xmlstring)
Dim startPos
startPos = InStr(xmlstring,"<"&tagname&">")+len(tagname)+2
getvalue = mid(xmlstring,startPos,InStr(xmlstring,"</"&tagname&">")-startPos-1)
End Function
Dim myXMl
myXMl = "<test><quantity>4</quantity><item><price>5.25</price><action>sell</action></item></test>"
Dim qty, prc, act
qty = getValue("quantity",myXML)
prc = getValue("price",myXML)
...etc