Const INET_RELOAD As Variant = &H80000000
  Dim hInet As Long
  Dim hURL As Long
  Dim Buffer As String * 4096
  Dim bytes As Long
 
  'Inet-Connection öffnen:
  hInet = InternetOpenA("none", OpenType, vbNullString, vbNullString, 0)
  hURL = InternetOpenUrlA(hInet, URL, vbNullString, 0, INET_RELOAD, 0)
 
  'Daten sammeln:
  Do
    InternetReadFile hURL, Buffer, Len(Buffer), bytes
    If bytes = 0 Or Len(OpenURL) > 40000 Then Exit Do
    OpenURL = OpenURL & Left$(Buffer, bytes)
  Loop
 
  'Inet-Connection schließen:
  InternetCloseHandle hURL
  InternetCloseHandle hInet