Do Until (ie.readyState = 4 And Not ie.Busy)
    DoEvents
Loop

If Mid(link.href, 8, 22) = "EnergiaNaturalAfluente" Then
i = i + 1

   With iefat
       .Visible = bMostrarNavegador
       .navigate link.href
   End With

   Do Until (iefat.readyState = 4 And Not iefat.Busy)
     DoEvents
   Loop
link.Click
If i = 2 Then Exit For
End If