Old Code:
Set source = CreateObject("Microsoft.XMLDOM")
source.async = False
source.load("http://AdFos.com")
feed = source.xml
New Code
Dim xmlHTTP As Varian
Dim strHTTPReturn As String
Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
xmlHTTP.open "GET", "http://AdFos.com"
xmlHTTP.Send
feed = xmlHTTP.responseText
might save someone sometime.