Function WebPageText(ByVal sURL, log, pass, edrpou As String, login As Boolean) As String
      On Error Resume Next
      Set IE = CreateObject("InternetExplorer.Application"):    ' open Internet Explorer
     With IE
     '.Visible = True 'видимость
     .Navigate sURL  ' переход
     While .Busy Or (.readyState <> 4): DoEvents: Wend    ' ожидание
       Set ieDoc = .Document: DoEvents: DoEvents
       If ieDoc.Title Like "Ошибка сертификата*" Or ieDoc.Title Like "Certificate Error*" Then
              ieDoc.Links(1).Click
              While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
              Set ieDoc = IE.Document
          End If

        With ieDoc 'login
        If login = True Then
          Application.Wait (Now + TimeValue("0:00:01"))
          .getElementsByName("mylogin")(0).Value = log
          .getElementsByName("mypass")(0).Value = pass
          .getElementsByName("savepass")(0).Click
          '.getElementsByName("login")(0).Click
          '.getElementsByValue("submit")(0).Click
          .forms(0).submit
          While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
        End If
          
          .getElementsByName("group1")(0).Click
          .getElementsByName("edrpou")(0).Value = edrpou
          '.getElementsByName("im1")(0).Click
          .forms(0).submit
          While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
          WebPageText = .body.innerText    ' тянем
            
        End With
        'Application.Wait (Now + TimeValue("0:00:13"))
          
        .Quit: Set IE = Nothing   ' закрываем
      End With
End Function