Option Explicit

Sub GoToWebSiteAndPlayAround()
     Dim appIE As Object
     Dim C1 As Object, E1 As Object, n1 As Integer

     On Error Resume Next

     Set appIE = CreateObject("InternetExplorer.Application")
     If Err <> 0 Then Exit Sub

     With appIE
         .Navigate "http://www.yandex.ru/"
         Do While (.Busy Or .readyState <> 4): DoEvents: Loop
         .Visible = True

         Set E1 = .document.all("login")
         If Not E1 Is Nothing Then    ' т.е. он есть!
             Set E1 = Nothing

             ' INPUTs <ЯНДЕКС>
             Set C1 = .document.getElementsByTagName("INPUT")
             C1("login").Value = "Sanya"
             C1("passwd").Value = "123"

             For n1 = 1 To C1.Length
                 Set E1 = C1(n1 - 1)

                 If E1.Value = "Войти" Or E1.Value = "Вход" Then
                     E1.Click
                     Do While (.Busy Or .readyState <> 4): DoEvents: Loop

                     Exit For
                 End If
             Next n1
             Set E1 = Nothing: Set C1 = Nothing
         End If
         ' МЫ НА ЯНДЕКСЕ ЗАЛОГИНЕНЫ!!!

         .Quit
     End With    'appIE
     Set appIE = Nothing
End Sub

Option Explicit

Sub GoToWebSiteAndPlayAround()
     Dim appIE As Object
     Dim C1 As Object, E1 As Object, n1 As Integer

     On Error Resume Next

     Set appIE = CreateObject("InternetExplorer.Application")
     If Err <> 0 Then Exit Sub

     With appIE
         .Visible = True
         .Navigate "http://www.yandex.ru/"
         .document.body.onload = loadingComplete

     End With    'appIE
     Set appIE = Nothing
End Sub

Function loadingComplete()
     MsgBox 1
End Function

Option Explicit

Sub EnterInMailYandex()
     Dim elem As Object
      
     On Error Resume Next
      
     With CreateObject("InternetExplorer.Application")
         .Navigate ("http://www.yandex.ru/")
          
         While .Busy
             DoEvents
         Wend
          
         .document.getElementById("b-domik-username").Value = "login"
         .document.getElementById("b-domik-password").Value = "password"
          
         For Each elem In .document.getElementsByTagName("input")
             If elem.tabIndex = 60 Then
                 elem.Click
                 Exit For
             End If
         Next
          
         .Visible = True
     End With
End Sub