Default internet retrieval error

[willerdem]

Hello there,


I usually use the following method to download data over the Internet.
When the code runs, I get the following screen error over time and it stuck on do loop after a while. How to write a code structure to avoid this.

[COLOR=#000000]Sub verial()[/COLOR]
Dim i As Integer, j As Integer

Cells.ClearContents

Const URL As String = _
"http://www.maliyetbul.com/ha09-13-Fiyat-farki-icin-endeksler.php"

   Set ie = CreateObject("InternetExplorer.Application")
   
    ie.Navigate URL
    
    Do Until ie.ReadyState = 4: DoEvents: Loop
    Do While ie.Busy: DoEvents: Loop
     
   On Error Resume Next
   
        'Veriler...
    
     Set a = ie.document.getelementsbytagname("table")
    With ie.document.getelementsbytagname("table").Item(0)
    
     Set b = ie.document.getelementsbytagname("table").Item(0)
     
          For i = 1 To .Rows.Length - 1
        t = .Rows.Length
            'For j = 0 To .Rows(1).Cells.Length - 1

                Cells(1, 1) = .Rows(i).Cells(4).innertext
            Next
y = y + 1

      '  Next

    End With
    

    
    ie.Quit: Set ie = Nothing:
    'MsgBox "Bitti", vbInformation [COLOR=#000000]End Sub[/COLOR]