How to download a file from the internet

Example code on how to download a file from the internet. Code was found and adapted from this web site.

Option Explicit

Sub Main

	Dim myURL As String
	Dim WinHttpReq As Object
	Dim oStream As Object
	myURL = "http://ideascripting.com/sites/default/files/export%20delimited%20no%20quotes%20v1.2.iss"
	
	
	
	Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
	WinHttpReq.Open "GET", myURL, False
	WinHttpReq.Send
	'myURL = WinHttpReq.ResponseBody
	If WinHttpReq.Status = 200 Then
		Set oStream = CreateObject("ADODB.Stream")
		oStream.Open
		oStream.Type = 1
		oStream.Write WinHttpReq.ResponseBody
		oStream.SaveToFile ("C:\data\file.csv")
		oStream.Close
	End If
	
	Set oStream = Nothing
	Set WinHttpReg - Nothing
End Sub