Parse nested json in VBA

Public Sub nestedjson()
Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://api.myjson.com/bins/ej517", False
http.send
Set JSON = ParseJson(http.responseText)
MsgBox (JSON("routes")(1)("legs")(1)("distance")("text"))
MsgBox (JSON("routes")(1)("legs")(1)("distance")("value"))
End Sub
'credits - https://codingislove.com