[Resolvido] Resgatar valor de nó em XML

' ################################################################################################
' pegaValorNode
' Retorno o valor específico de um Node de um XML
Function pegaValorNode(xml, node)
Dim objXml
Set objXml = Server.CreateObject("MSXML2.DOMDocument")

objXml.loadXML(xml)

If (TypeName(objXml) = "DOMDocument") Then
If (objXml.GetElementsByTagName(node).length <> 0) Then
pegaValorNode = objXml.selectSingleNode("//" & node).text
Else
pegaValorNode = ""
End If
Else
pegaValorNode = ""
End If

Set objXml = Nothing
End Function

Utilizando a função:

'objSrvHTTP.responseText: retorno utilizando MSXML2.XMLHTTP.3.0
xml = objSrvHTTP.responseText
'erro//codigo: nó a ser recuperado
retorno_codigo_erro = pegaValorNode(xml,"erro//codigo")

Fonte: Código de exemplo da Locaweb