Function Scrape(url As String) As String
  Dim Browser As InternetExplorer
  Dim Document As htmlDocument
  Set Browser = New InternetExplorer

  Browser.Visible = False
  Browser.navigate url

  Do While Browser.Busy And Not Browser.readyState = READYSTATE_COMPLETE
      DoEvents
  Loop

  Scrape = Document.getElementById("receipt").getElementByTagName("a").href

  Set Document = Nothing
  Set Browser = Nothing
End Function