Visual Basic - Internet Transfer...en VB6

Ayyy.. Houston Houston We have a problem!.... Probando el control Transfer Internet ( Inet) realice el sgte codigo

Private Sub Command1_Click()
StrUrl = "http://" & txturl.Text
Inet1.Execute StrUrl, "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant ' Data variable.
Select Case State
' ... Los demás casos no se muestran.
Case icResponseCompleted ' 12
' Abre un archivo en el que escribir.
intfile = FreeFile()
Open "C:\documentos\downexe.exe " For Binary Access _
Write As #intfile

' Obtiene el primer fragmento. NOTA: especifique
' una matriz de bytes (icByteArray) para
' recuperar un archivo binario.
vtData = Inet1.GetChunk(1024, icByteArray)
Do While LenB(vtData) > 0
Put #intfile, , vtData
' Obtiene el siguiente fragmento.
vtData = Inet1.GetChunk(1024, icByteArray)
Loop
Put #intfile, , vtData
Close #intfile
MsgBox "Listoooo el Pollo...", vbInformation
End Select
End Sub
OK... solo me baja 3.82kb!!!.. en todos los casos ya que probe con varios exe, ademas de con txt... es mi conexion?... esta tal cual la ayuda del msn el codigo
Alguna idea?.. gracias....