Visual Basic - AYUDA CON INET CONTROL

Hola. Intento bajarme archivos desde un servidor mediante el control Inet. Muy basicamente ocurre:
Cuando esta en el evento 8 ( El control recibio correctamente una respuesta del equipo host: icResponseReceived), le hago:
'----------------
' Obtencion de la cabecera del archivo
data = Inet1.GetHeader()
luego llamo a un metodo para que me devuelva la longitud de el archivo, (content-lenght), que esta en la cabecera:

Private Function GetFileSize&(ByVal cad$)

Dim arr() As String
Dim i%
Dim Length_Identifier_String$

On Error GoTo Err_GetFileSize

Length_Identifier_String = "Objeto no encontrado"

If InStr(1, cad, "Objeto no encontrado", vbTextCompare) Then
GetFileSize = -1
Exit Function
End If

arr = Split(cad, vbCrLf)

For i = 0 To UBound(arr)
If InStr(1, arr(i), "Content-Length:", vbTextCompare) Then
GetFileSize = CLng(Trim(Mid$(CStr(arr(i)), Len(Length_Identifier_String) + 1)))
Exit For
End If
Next


Exit Function

Err_GetFileSize:
MsgBox Err.Description, vbExclamation

End Function

Antes de todo esto , lanzo el execute de la sig manera:
direccion = "1.1.1.1/directorio"
fichero = "pepe.asp"
Inet1.Execute "http://" & "direccion" & nombre de archivo, "GET"

He podido observar que en el metodo getheader, si no se trae la cabecera, se desconecta directamente, y en caso de que se la traiga, no trae todo el archivo, solo l