Browse Json VBA Object

Question

Good night, I’m having difficulty traversing the object to get the result of a API

Object to be covered

Sub AtualizarJogadores()

DoCmd.SetWarnings False
Dim Movie As Object
Dim R As Object
Dim scriptControl As Object

Set scriptControl = CreateObject("MSScriptControl.ScriptControl")
scriptControl.Language = "JScript"

With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "https://api.cartolafc.globo.com/clubes", False
    .send
    Set R = scriptControl.Eval("(" + .responsetext + ")")
    .abort

        For Each Movie In R





        Next Movie


       End With

End Sub