Option Explicit

Dim oXMLHTTP
Dim oStream

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

oXMLHTTP.Open "GET", "http://rmccurdy.com/f_news.html", False
oXMLHTTP.Send

If oXMLHTTP.Status = 200 Then
 Set oStream = CreateObject("ADODB.Stream")
 oStream.Open
 oStream.Type = 1
 oStream.Write oXMLHTTP.responseBody
 oStream.SaveToFile "file.dat"
 oStream.Close
End If