Hola, leandro con ese link del rss de taringa no funciona efectivamente, pero probe con otro que es lo mismo y funciona bien.
en vez de http://www.taringa.net/rss/home/ultimos-posts/
usar esta http://rss.taringa.net/taringa/ultimos-post
saludos.
en vez de http://www.taringa.net/rss/home/ultimos-posts/
usar esta http://rss.taringa.net/taringa/ultimos-post
Código (vb) [Seleccionar]
Option Explicit
Dim Doc As DOMDocument
Private Sub Form_Load()
Set Doc = New DOMDocument
Doc.resolveExternals = True
Doc.async = False
If Doc.Load("http://rss.taringa.net/taringa/ultimos-post") Then
MsgBox Doc.selectNodes("/rss/channel/item").length
MsgBox GetElement("rss/channel/item/title", 0)
MsgBox GetElement("rss/channel/item/link", 0)
Else
Debug.Print Doc.parseError
End If
Set Doc = Nothing
End Sub
Private Function GetElement(NodeKey As String, Indice As Integer)
GetElement = Doc.getElementsByTagName(NodeKey).Item(Indice).Text
End Function
saludos.