Function GetData(strUrl) 'As String
'Uses Internet Explorer to return a string containing the 
'contents of an http or ftp web page
Dim web 'As InternetExplorer.Application
Dim doc 'As InternetExplorer.Document
Dim strWebPage 'As String
	Set web = CreateObject("InternetExplorer.Application")
	web.Navigate strUrl
	Do While web.Busy
	Loop
	On Error Resume Next
	Set doc = Nothing
	Do Until Not doc Is Nothing
		Set doc = web.Document
	Loop
	strWebPage = doc.body.OuterHTML
	GetData = strWebPage
End Function