Code Snippet to send GET Request via function in Excel Macro

GET_REQ_VIA_MACRO.vb

Private Sub FetchData()
    Dim objRequest As Object, strUrl As String, blnAsync As Boolean, strResponse As String
    Dim jsonObject  As Object, item        As Variant

    Set objRequest = CreateObject("MSXML2.XMLHTTP")
    strUrl = "<URL_GOES_HERE>"
    blnAsync = True

    With objRequest
        .Open "GET", strUrl, blnAsync
        .setRequestHeader "Content-Type", "application/json"
        .Send
        While objRequest.readyState <> 4
            DoEvents
        Wend
        strResponse = .ResponseText
    End With 
End Sub