StefanWerW

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