Dim varReturn As Variant

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("[URL=http://ati.su/firms/1417851/info"]http://ati.su/firms/1417851/info"[/URL])
    
   'ie.Document.All.Item("javascript:void(0)").submit 'клик по кнопке
    '[URL=http://ati.su/firms/1417851/info]http://ati.su/firms/1417851/info[/URL]

    'varReturn = SysCmd(acSysCmdInitMeter, "Entering to pecom.Ru ...", 100)
    Do Until ie.document.readystate = "complete"
        i = i + 1
        'varReturn = SysCmd(acSysCmdUpdateMeter, Int(i / 30000 * 100))
        If i > 29999 Then
           'varReturn = SysCmd(acSysCmdClearStatus)
           Beep
           MsgBox "Something is wrong. pecom.Ru is not accessible", vbCritical, "pecom.Ru"
           ie.Quit
           Set ie = Nothing
           Exit Sub
        End If
        DoEvents
    Loop
    'varReturn = SysCmd(acSysCmdClearStatus)
    
   ' ie.Document.getelementbyID("rptContact_ctl00_hlShowMail").All(0).RaiseEvent ("onclick")
    
         Set a = ie.document.getElementsByTagName("A")
    For i = 0 To a.Length - 2
      If InStr(1, a(i).outerHTML, "emailShowLink") > 0 Then
        a(i).Click
      End If
    Next i
    
    For Each sb In ie.document.getElementsByTagName("rptContact_ctl00_hlShowMail")
If sb.Value = "Submit" And sb.Name = "Submit" Then sb.Click: Exit For
Next
    
    ie.document.getElementsByClassName("rptContact_ctl00_hlShowMail").submit
    ie.document.getelementbyID("rptContact_ctl00_hlShowMail").Click
     ie.document.All.Item("rptContact_ctl00_hlShowMail").Click 'клик по кнопке
     
ie.document.All.Item("rptContact_ctl00_hlShowMail").Click
    ie.document.Forms.Auth.submit