Option Explicit
'Private Doc As DOMDocument
Private Doc As Object
 
Private Sub Form_Load()
    'Set Doc = New DOMDocument
    Set Doc = CreateObject("Msxml2.DOMDocument.3.0") 'or "Microsoft.XMLDOM"
 
    Doc.resolveExternals = False
    Doc.async = False
    Doc.validateOnParse = False
 
    ' ChrW$(8364) = Simbolo del euro €
    ' ChrW$(&H8FCE) = Simbolo de Asia del este
 
    If Doc.LoadXML("<?xml version=""1.0"" encoding=""UTF-8""?><symbol>" & ChrW$(8364) & ChrW$(&H8FCE) & "</symbol>") Then
        Debug.Print Doc.xml
    Else
        Debug.Print Doc.parseError
    End If
End Sub
 

<?xml version="1.0"?>
<symbol>€?</symbol>

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