Function PoiskINN(s As String)
'aequit 28.02.2020
    Dim URL As String, strTxt As String
    Dim XMLHTTP
    s = Application.WorksheetFunction.Trim(s)
    s = Replace(s, " ", "+")
    URL$ = "https://www.list-org.com/search?type=all&val=" & s
    Const TIMEOUT& = 15
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    XMLHTTP.Open "GET", URL$, True: DoEvents
    XMLHTTP.send: DoEvents
    If Not XMLHTTP.WaitForResponse(TIMEOUT&) Then
        MsgBox "Сайт не найден! (timeout)", URL: Exit Function
    End If
    strTxt = XMLHTTP.responseText
    PoiskINN = RegExPRepl(strTxt)
End Function
Function RegExPRepl(sString$) As String
'aequit 28.02.2020
    Static RegEx As RegExp
    Dim objMatches As MatchCollection
    If RegEx Is Nothing Then Set RegEx = New RegExp
    With RegEx
       .Global = True
       .MultiLine = True
       .IgnoreCase = True
       .Pattern = "(?:>инн</i>: ?)(\d{10,12})"
    End With
    If Not RegEx.Test(sString) Then
        RegExPRepl = "ИНН не обнаружен!"
        Exit Function
    End If
    Set objMatches = RegEx.Execute(sString)
    If objMatches.Count > 1 Then
        RegExPRepl = "Обнаружено более одного ИНН! Уточните наименование организации!"
        Exit Function
    End If
    RegExPRepl = RegEx.Execute(sString)(0).SubMatches.Item(0)
End Function

Function PoiskOrg(s As String)
    Dim oHttp As Object
    Dim strURL As String
    strURL = "https://www.list-org.com/search?type=inn&val=" & s
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    On Error GoTo 0
    If oHttp Is Nothing Then
        MsgBox "Не удалось инициализировать объект MSXML!"
        Exit Function
    End If
    oHttp.Open "GET", strURL, False
    oHttp.Send
    PoiskOrg = RegExPRepl(oHttp.ResponseText)
    Set oHttp = Nothing
End Function

Function RegExPRepl(sString$) As String
'aequit 24.12.2020
    Static RegEx As RegExp
    Dim objMatches As MatchCollection
    If RegEx Is Nothing Then Set RegEx = New RegExp
    With RegEx
       .Global = True
       .MultiLine = True
       .IgnoreCase = True
       .Pattern = "(<br><span>)([\S\s]*?)(<br><i>инн</i>:)"
    End With
    If Not RegEx.test(sString) Then
        RegExPRepl = "Организация не обнаружена!"
        Exit Function
    End If
    Set objMatches = RegEx.Execute(sString)
    If objMatches.Count > 1 Then
        RegExPRepl = "Обнаружено более одной организации! Уточните ИНН!"
        Exit Function
    End If
    RegExPRepl = RegEx.Execute(sString)(0).SubMatches.Item(1)
End Function