Try

loHttp = CreateObject("MSXML2.XMLHTTP.3.0")
lcUrl = "http://www.dpd.co.uk/service/tracking?consignment=8549915792"

loHttp.Open("Get", lcUrl, 0)
loHttp.send()
? loHttp.responseText

>I am trying to access a Courier company's web site to download the tracking date for a shipment - the shipping company gives me the following code
>
>How do I build this into VFP?
>
>A HREF=”http://www.dpd.co.uk/service/tracking?consignment=8549915792”