Public Function IE_WaitForCtrl(ie As Object, NameCtl As String, Optional WaitSec As Integer = 5) As Boolean
  Dim vDt As Date
  Dim f As Object 'HTMLTextElement
  vDt = Now
  If ie Is Nothing Then Exit Function
  On Error Resume Next
  Do
    Set f = ie.Document.getElementsByName(NameCtl).Item(0) '.all(NameCtl)
    If err.number = 462 Then 'The remote server machine does not exist or is unavailable
      err.Clear
      GoTo mEx
    End If
    If f Is Nothing Then
      DoEvents
      If DateDiff("s", vDt, Now) > WaitSec Then
        Dim ans As Long
        ans = MsgBox("Время ожидания истекло! Подождать еще " & WaitSec & " секунд?", vbQuestion + vbYesNoCancel + vbSystemModal, NameApp)
        If ans = vbCancel Then
          GoTo mEx
        ElseIf ans = vbNo Then 'выход как будто Експлорер не занят
          Exit Do
        End If
        vDt = Now
      End If
    'Else: f.innerText = "test"
    End If
  Loop While f Is Nothing
  
Success:
  IE_WaitForCtrl = True
  
mEx:
  
End Function