Dim nBytes As Long
 
With WebBrowser1.Document.documentElement
  nBytes = Len(.outerHTML)
End With
 
MsgBox "Größe der HTML-Seite: " & CStr(nBytes) & " Bytes"

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.