SoloCodigo

Buenas,
Tengo una mini aplicacion que consiste en descargar paginas web de una lista,
El problema esta que se me bloquea en la llamada getchunck,al cabo de un par de llamadas, descarga unas cuantas bien, pero al cabo de un rato se queda bloqueado hasta que el programa no responde en la linea

 vtData = i2.GetChunk(lCHUNKSIZE, icString)

os dejo aqui bajo el codigo por si alguien sabe el porque.


Private Sub i2_StateChanged(ByVal State As Integer)

    Const lCHUNKSIZE As Long = 1024
    Dim vtData As Variant ' Data variable.


    Select Case State

    Case icError ' 11
           
            MsgBox (i2.ResponseCode & ":" & i2.ResponseInfo)
            End
    Case icResponseCompleted  ' 12
 Dim strData As String: strData = ""
                 Dim bDone As Boolean: bDone = False

                 ' Get first chunk.
                 vtData = i2.GetChunk(lCHUNKSIZE, icString)
                 DoEvents

                 Do While Not bDone

                     strData = strData & vtData
                     ' Get next chunk.
                     vtData = i2.GetChunk(lCHUNKSIZE, icString)
                     DoEvents

                     If Len(vtData) = 0 Then
                         bDone = True
                     End If
                 Loop

              Case icDisconnected
                  Debug.Print "* Disconnected"
                  Unload Me

             End Select
  t2.Text = t2.Text & strData
End Sub