Sub test()
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("https://rosreestr.ru/wps/portal/p/cc_ib_portal_services/online_request/!ut/p/z1/pZAxb8IwEIV_Swfmu3NCgGxWqFIUREpLAXuxDDHIbZygyGrVf1-7S6fCwG339L57TwcS9iA7_WnP2tu-023YhcxUuU4fqUipKtc0Qb7gFSVUIm7GsLtqqAnkPXwwRB7_GY6Bl1cjCnbDECveChGh5EQhPXHiKavq-WaG_CXB7XLFGCLBa7xx7Ds_9G1rBhAjrA_v5ujn2uviTw-uwZzDa9WH-QZBLItSc1hpZ0Cc7LC03kSp_6VVE3BlGxAsy4nlhOME83TG4OLe9mifnZsmbvrFH34ArK5xtQ!!/p0/IZ7_01HA1A42KODT90AR30VLN22001=CZ6_GQ4E1C41KGQ170AIAK131G00T5=MEcontroller!QCPSearchController==/#Z7_01HA1A42KODT90AR30VLN22001")
    
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop
  
    ie.Document.GetElementsByName("cad_num")(0).Value = "26:12:010530:492"
    ie.Document.getElementById("submit-button").Click
    
    'ie.Document.GetElementsByName("href")(0).Click
    
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop

End Sub

Sub Инстаграм()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("instagram.com")
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop
    
    Debug.Print ie.document.getElementsByClassName("_g9ean").innertext
     
End Sub

Do Until ei.ReadyState = 4
   DoEvents
Loop

For Each div In ie.Document.GetElementsByTagName("div")
    If div.className = "description_content" Then
          Sheets(1).Cells(b, 1).Offset(0, 5).value = div.innerText
    End If
Next

ActivatePaint = Shell("c:\WINDOWS\system32\mspaint.exe", 1)

Sub Ya()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("yandex.ru")
    
    Do Until ie.ReadyState = 4 'For STATE as COMPLETE
        DoEvents
    Loop
  
    ie.Document.getelementbyID("text").value = "123"
    ie.Document.GetElementsByTagName ("type")

    
End Sub

MsgBox IsNumeric(Sheets(1).Cells(1, 1))