Makro'daki hata (DoEvents: Loop)

[emreakharman]

Merhabalar, bu güne kadar kullanırken sorun yaşamadığım makro, bugün çalışmıyor. Sebebini anlamış değilim. Bugüne kadar ilgili siteye girip ilgili hücrelerdeki verileri otomatik yazarak sisteme giriş yapıyordu şimdi sadece siteye giriyor. DoEvents kısmı hatalı olarak vurgulanıyor. Yardımcı olur musunuz?

Sub CommandButton1_Click()
On Error Resume Next 'programda hata olursa ne yapsın

Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll)
Dim HTMLdoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library


Set objIE = New SHDocVw.InternetExplorer

With objIE
    .navigate Range("H21")
    .Visible = 1
    Do While .readyState <> 4: DoEvents: Loop
    Do While IE.Busy: DoEvents: Loop
    
    Application.Wait (Now + TimeValue("0:00:02"))
    Set HTMLdoc = .document
    
     HTMLdoc.getElementById("MainContent_ASPxPageControl1_txtKullaniciAdiOgrenci").Value = Range("I19") 'öğrenci no
     HTMLdoc.getElementById("MainContent_ASPxPageControl1_txtSifreOgrenci").Value = Range("I20") 'şifre
     HTMLdoc.getElementById("MainContent_ASPxPageControl1_btnGirisOgrenci_CD").Click 'giriş butonu
    
    End With

    Application.Wait (Now + TimeValue("0:00:5"))
    'objIE.Quit
    Set objIE = Nothing
    Set HTMLdoc = Nothing
    OpenAfterPublish = True
    
    If Err.Number = 0 Then
    MsgBox "Verileriniz sadece sizin Excel dosyanızda gözükür. Numara-şifre hücrelerini sildiğinizde verileriniz de gider, hiçbir yere kaydedilmez."
    Else
     MsgBox "Girişte hata oluştu."
    End If