Не работает DoEvents при загрузке IE

Set Shell = CreateObject("shell.application")
   For Each WinItem In Shell.Windows
      If WinItem.LocationURL = SiteURL Then
         Set oDoc = WinItem.Document.Frames(1).Document
      End If
   Next
   Set objCollectionLink = oDoc.getElementsByTagName("a")
   While i < objCollectionLink.Length
   If objCollectionLink(i).Title = "Загрузить" Then
     objCollectionLink(i).OnClick
   End If
   i = i + 1
   Wend

.ReadyState = 4' READYSTATE_COMPLETE=4

   For Each WinItem In Shell.Windows
      If WinItem.LocationURL = SiteURL Then
         Set oDocF1 = WinItem.Document.Frames(1).Document
      End If
   Next
       Set objCollectionLink = oDocF1.getElementsByTagName("a")
   While l < objCollectionLink.Length
   If objCollectionLink(l).Title = "Найти" Then
     objCollectionLink(l).OnClick
     GoTo step1
   End If
   
   If objCollectionLink(l).Title = "Фильтр" Then
     objCollectionLink(l).OnClick
     GoTo step1
   End If
   l = l + 1
   Wend
   l = 0
step1:
 
'--тут я снова ищу браузер и в нем пытаюсь ждать когда загрузится фрейм
'*****************************************
 
   For Each WinItem In Shell.Windows
     If WinItem.LocationURL = SiteURL Then
        Do While WinItem.Document.Frames(1).Document.readyState <> 4
        DoEvents
        Loop
     End If
  Next