Function GetContrInfo(dDate As Date, sINN As String, sKPP As String)

    Dim sDt As String
    Dim oHttp As Object
    Dim sReqRes As String
    sDt = Format(dDate, "dd.MM.yyyy")
    sRequest = "http://npchk.nalog.ru/ajax.html?inn=" & sINN & "&kpp=" & sKPP & "&dt=" & sDt
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    If oHttp Is Nothing Then Exit Function
    

    On Error GoTo 0
    oHttp.Open "GET", sRequest, False
    oHttp.Send
    sReqRes = oHttp.responsetext
End Function

Cells(li, 4) = GetContrInfo(Cells(li, 3).Value, Cells(li, 1).Value, Cells(li, 2).Value)

GetContrInfo = sReqRes