Как узнать размер файла по HTTP? - VB

Inet1.Execute "http://img.yandex.net/i/yandex-v9.gif http://img.yandex.net/i/yandex-v9.gif", "HEAD"
Do
  If Not Inet1.StillExecuting Then Exit Do
  DoEvents
Loop
lLenthFile = CLng(Inet1.GetHeader("Content-length"))
s = "Date: " & Inet1.GetHeader("Date") & vbCrLf
s = s & "MIME-version: " & Inet1.GetHeader("MIME-version") & vbCrLf
s = s & "Server: " & Inet1.GetHeader("Server") & vbCrLf
s = s & "Content-length: " & CStr(lLenthFile) & vbCrLf
s = s & "Content-type: " & Inet1.GetHeader("Content-type") & vbCrLf
s = s & "Last-modified: " & Inet1.GetHeader("Last-modified") & vbCrLf
MsgBox (s)