Hi,

Is it possible to extract the county code from this link:

https://geocoding.geo.census.gov/geo...14&format=json

I'm used to using the split function, but I can't get it to work for a website that is just text/for api. How can I modify this code:

Sub Demo24()
       Dim Val As String
    
        With CreateObject("Msxml2.ServerXMLHTTP.6.0")
         Sheet5.Range("K40").ClearContents
         
        .Open "GET", "https://geocoding.geo.census.gov/geocoder/geographies/address?street=4600+Silver+Hill+Rd&city=Suitland&state=MD&benchmark=Public_AR_Census2010&vintage=Census2010_Census2010&layers=14&format=json", False
        .setRequestHeader "DNT", "1"
        .send
        Val = Replace(Split(Split(.responseText, ":")(1), ",")(1), "/", "")
        Sheet5.Range("K40").Value = Val
    End With
End Sub
If you know how to use it using VBA and API, that'd be amazing.

Here's the API information:

https://geocoding.geo.census.gov/geo...vices_API.html

Thank you. I can't find any information on how to do this. Thanks again!