RECEBENDO DADOS XML EM TEXTBOX

SOUZA 26/07/2014 18:32:08
#439898

Pessoal finalmente encontrei um xml com as previsoes diaria dos signos.

so que ele esta vindo muito confusoos resultados no textbox vou explicar melhor:

Bom só pra constar fiz referencia ao xml e coloquei o inet e um comandbuton

-----------------------------------------------------------------------------------------------------------
Dim enderecoUrl As String
Dim arquivoXml As String

enderecoUrl = [Ô]http://estrelaguia.bolsademulher.com/feed/rss/horoscopo/libra/[Ô]
With Inet1
.AccessType = icDirect

.Proxy = [Ô][Ô]

.Protocol = icHTTP

arquivoXml = .OpenURL(enderecoUrl)

End With

Dim oDom As DOMDocument
Set oDom = New DOMDocument
With oDom

.loadXML arquivoXml

Text1.Text = .childNodes(1).childNodes(0).childNodes(0).Text
Text2.Text = .childNodes(1).childNodes(0).childNodes(1).Text
Text3.Text = .childNodes(1).childNodes(0).childNodes(2).Text
Text4.Text = .childNodes(1).childNodes(0).childNodes(2).Text

End With

resultado entao é esse como na imagem acima!