Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal lngPause&)

' ****************************************
Sub NeedIfolderRU()
Const S_Login = "vbtest"
Const S_Psw = "testtest"
Dim ie As Object, ae As Object
Dim k&, b As Boolean

Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://ifolder.ru/"

Do While ie.readystate <>  4  ' READYSTATE_COMPLETE
 Sleep  100 

' попытка ускорить загрузку:
' выход из цикла если ссылка на форму авторизации загружена
 If ie.readystate =  3  Then ' READYSTATE_INTERACTIVE
 On Error Resume Next
    b = Not IsNull(ie.document.all( 45 ).onclick)
    k = Err.Number
 On Error GoTo  0 
    Err.Clear
    If k <>  0  Then k =  0  Else If b Then Exit Do
 End If
 
Loop '' While ie.readystate <> 4 ' READYSTATE_COMPLETE

' клик по ссылке "авторизация"
ie.document.all( 45 ).Click

Do While ie.readystate <>  4  ' READYSTATE_COMPLETE
 Sleep  100 
 k = k +  1 

' попытка "отследить" "зависание" IE -->
 If k >  5  Then
    k = MsgBox("IE тормоз :(" & vbCrLf & "Будем ещё ждать ?", _
                vbQuestion + vbYesNo + vbDefaultButton1)
    If k = vbYes Then k =  0  Else b = False: Exit Do
 End If
Loop '' While ie.readystate <> 4 ' READYSTATE_COMPLETE
If Not b Then ie.Quit: Set ie = Nothing: Exit Sub
' попытка "отследить" "зависание" IE <--

' заполнение формы авторизации -->
Do
' ie.document.ActiveElement обновляется с задержкой
' костыль с циклом из-за того, что иначе не нашёл как обновить принудительно :(
    k =  0 
    Set ae = ie.document.ActiveElement
On Error Resume Next
    ae.form.all( 4 ).Value = S_Login
    k = Err.Number
On Error GoTo  0 
    Err.Clear
Loop Until k =  0 
ae.form.all( 9 ).Value = S_Psw
ae.form.all( 21 ).Click
' заполнение формы авторизации <--

ie.Visible = True

Set ae = Nothing
Set ie = Nothing

End Sub