Olá pessoal!
Tenho o seguinte XML que é retornado por um webservice
"<?xml version="1.0" encoding="iso-8859-1"?>
<LISTAR_EMPRESAS_RET>
<STATUS>0</STATUS>
<EMPRESAS><EMPRESA>
<EMPRES_ID>132</EMPRES_ID>
<NOME>ALFA SISTEMAS DE REFRIGERACAO LTDA</NOME>
<FANTASIA>ALFA SISTEMAS DE REFRIGERACAO LTDA</FANTASIA>
</EMPRESA><EMPRESA>
<EMPRES_ID>133</EMPRES_ID>
<NOME>BETA EMPREENDIMENTOS LTDA</NOME>
<FANTASIA>BETA EMPREENDIMENTOS LTDA</FANTASIA>
</EMPRESA><EMPRESA>
<EMPRES_ID>124</EMPRES_ID>
<NOME>BONACIOFARMA</NOME>
<FANTASIA>BONACIOFARMA</FANTASIA>
</LISTAR_EMPRESAS_RET>
Gostaria de saber como faço para ler cada atributo das tags.
Tentei a seguinte codificação, mas não obtive sucesso:
xmlDoc.LoadXml(Retorno)
Dim node As XmlNode = xmlDoc.DocumentElement
Dim nodeList As XmlNodeList = node.SelectNodes("LISTAR_EMPRESAS_RET")
Dim xn As XmlNode
For Each xn In nodeList
MsgBox(xn.Attributes("Empresa").Value)
Next
Obrigado desde já!