If Not bHeaderSend Then lngContentLength = 0
 
  ' Daten in Datei speichern
'  F = FreeFile
'  Open strLocalFilename For Append As #F
'  Print #F, strData;
'  Close #F
 
  ' Fortschritt
  lngFileSize = lngFileSize + Len(strData)
  RaiseEvent Progress(lngFileSize, lngContentLength)
  ' Dadurch wird der Download gar nicht erst gestartet
  AbortDownload

'  lblStatus.Caption = CStr(BytesLoaded) & " von " & _
'    CStr(FileSize) & " Bytes"
'  ShowProgress picProgress, BytesLoaded, 0, FileSize
'  DoEvents
  Dim iDateiGroesse as Double
  ' Jetzt steht die Dateigroesse in Bytes in der Variable iDateiGroesse die du 
  ' jetzt wieder verwenden kannst
  iDateiGroesse = CStr(FileSize)
'  Debug.Print iDateiGroesse