Function GetData(strUrl) 'As String
'Uses MSINET.OCX from http://activex.microsoft.com/controls/vb5/msinet.cab 
'Requires a Microsoft developer's license. May require license fix from 
'ftp://ftp.microsoft.com/softlib/mslfiles/vbc.exe
'Returns a string containing the contents of a web page
Dim web 'As InetCtls.Inet
Dim strWebPage 'As String
	Set web = CreateObject("InetCtls.Inet")
	web.RequestTimeout = 60
	strWebPage = web.OpenURL(Cstr(strUrl))
	GetData = strWebPage
End Function