Grettanews 2
NewsText = Trim(NewsText)
NewsText = Replace(NewsText,"Select a Category: Most Popular Top Stories U.S. World Business Technology Politics Entertainment Health Odd News Opinion Science Sports Travel Most Popular","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Yahoo! News SearchAll News","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"You are viewing a feed that contains frequently updated content. When you subscribe to a feed, it is added to the Common Feed List. Updated information from the feed is automatically downloaded to your computer and can be viewed in Internet Explorer and other programs. Learn more about feeds.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Choose Your Reader)FeedDemonNetNewsWireNewsFireNewsGator Outlook EditionRSSOwlShrookUniversal Subscription Mechanism (USM)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"FeedBurner makes it easy to receive content updates in My Yahoo!, Newsgator, Bloglines, and other news readers.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Your subscribed feeds are not being updated automatically because this setting is turned off.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Turn on automatic feed updates","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"You've successfully subscribed to this feed!","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Updated content can be viewed in Internet Explorer and other programs that use the Common Feed List.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Subscribe to this feed","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"List OrderDateTitleAuthor","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Filter by category:","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Mark feed as readView feed properties...","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"View my feeds","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Reuters: ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"List OrderDateTitleAuthor","",1,-1,vbTextCompare)
'NewsText = Replace(NewsText,"Today,",".: Today,",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"ago" & vbCrLf,"ago." & vbCrLf,1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Reuters)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 1 "," Number 1 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 2 "," Number 2 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 3 "," Number 3 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 4 "," Number 4 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 5 "," Number 5 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 6 "," Number 6 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 7 "," Number 7 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 8 "," Number 8 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 9 "," Number 9 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," No. 10 "," Number 10 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," EU "," European Union ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," (ESA) "," (E.S.A.) ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," II "," 2 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," III "," 3 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," IV "," 4 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," V "," 5 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," VI "," 6 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," VII "," 7 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," VIII "," 8 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," IX "," 9 ",1,-1,vbTextCompare)
NewsText = Replace(NewsText," Co "," Company ",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"JPMorgan","J,P. Morgan",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Hollywood Reporter)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Billboard)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(NFLPA)","(N,F,L,P,A.)",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"NCAA","N,C, double A",1,-1,vbTextCompare)
'NewsText = Replace(NewsText,"Yesterday,",".: Yesterday,",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Reuters Health)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Internet Explorer cannot display this feed","",1,-1,vbTextCompare)
NewsText = Replace(NewsText," This feed contains code errors.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText," Go back to the previous page.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"<?xml version=""1.0"" encoding=""UTF-8"" ?>","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"syndicated content powered by FeedBurner","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"...Reset this favorite; show all Subscribe options","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"...with web-based news readers. Click your choice below:","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Choose Your Reader) FeedDemon NetNewsWire NewsFire NewsGator Outlook Edition RSSOwl Shrook Universal Subscription Mechanism","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(USM)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Learn more about syndication and FeedBurner...","",1,-1,vbTextCompare)
NewsText = Replace(NewsText," -0400","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"FeedBurner delivers the world's subscriptions wherever they need to go. Publish a feed for text or podcasting?","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"You should try FeedBurner today.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"<title>","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"</title>",".",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"<description>","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"</description>","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Yahoo! News Search Results for","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"business10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"entertainment10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"politics10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"science10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"sports10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"topstories10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"us10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world2","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world1","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world3","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world4","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world5","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world6","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world7","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world8","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world9","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"world10","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Yahoo! News:","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(AP)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(AFP)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"AP - ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"AFP - ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Reuters - ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(HealthDay)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(HealthDay News)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HealthDay - ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(PC World)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"PC World - ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,", 2009, ",", 2009. ",1,-1,vbTextCompare)
NewsText = Replace(NewsText,", 2010, ",", 2010. ",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(LiveScience.com)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"(Choose Your Reader) FeedDemonNetNewsWireNewsFireNewsGator Outlook EditionRSSOwlShrookUniversal Subscription Mechanism","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Pop In ChatPop Out ChatPhoto UploadsPhoto Uploads","",1,-1,vbTextCompare)
NewsText = Replace(NewsText," 0Find Your FriendsFriend Requests","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"0 requests0Send a New MessageMessages","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"See All Messages 0 unread1Notifications","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"SearchHomeProfileFind FriendsAccountJason StoryEdit FriendsAccount SettingsPrivacy SettingsApplication SettingsHelp CenterLogout","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Welcome(0)News Feed(0)Messages(0)Updates(0)Sent(0)Events(0)Friends' Events(0)Birthdays(0)Past Events(0)Photos(0)Video(0)Recent Albums(0)Mobile Uploads(0)My Uploads(0)Friends(0)Recently Updated(0)Status Updates(0)","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"See AllGo OnlineSee AllEvents","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Please provide an event name","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Find your friendsWho's not on Facebook?","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Invite them nowWho's here because of you?","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Track your invitesConnect on the go","",1,-1,vbTextCompare)
NewsText = Replace(NewsText," Top News · Most RecentNews Feed","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"EveryoneEveryoneEveryoneFriends of FriendsFriends OnlyCustomizeAttach:PhotosVideoEventLink","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"Use this new control to choose who can see each post you create. ","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"This stream is unavailable at this time. Please try again soon.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HelpYour Home Page displays interesting content from your friends. Share messages and photos with your friends using the Publisher.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"You control your experience. Learn more about how privacy works on Facebook.","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"AboutAdvertisingDevelopersCareersTerms • Find FriendsPrivacyMobileHelp Center","",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideA","A",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideB","B",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideC","C",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideD","D",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideE","E",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideF","F",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideG","G",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideH","H",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideI","I",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideJ","J",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideK","K",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideL","L",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideM","M",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideN","N",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideO","O",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideP","P",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideQ","Q",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideR","R",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideS","S",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideT","T",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideU","U",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideV","V",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideW","W",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideX","X",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideY","Y",1,-1,vbTextCompare)
NewsText = Replace(NewsText,"HideZ","Z",1,-1,vbTextCompare)