Set XmlDomObj = CreateObject("Microsoft.XMLDOM")
XmlDomObj.async = "false"




Sub TWFeedLinker1FeedItemSelected(entry)


    if XmlDomObj.LoadXml(entry.xml) = False then
        MsgBox "Cannot read " & entry.title
        Exit Sub
    end if


        AuthorTxt.Text = XmlDomObj.SelectSingleNode("entry/author").Text
        Content.Text = XmlDomObj.SelectSingleNode("entry/content").Text
        Contributor.Text = XmlDomObj.SelectSingleNode("entry/contributor/name").Text


       set node = XmlDomObj.SelectSingleNode("entry/media:thumbnail")
       urlauthor = node.GetAttribute("url")
       Avatar.PicFilename=urlauthor
       Avatar.UpdateThumbnail


       set node = XmlDomObj.SelectSingleNode("entry/link[1]")
       url = node.GetAttribute("href")
       PostImage.PicFilename=url
End sub