Parson.Json无法正常工作

Question

我是VBA的新手，我正在尝试编写一些代码。我遇到了一些JSON数据，并获得了PARSE JSON。不知何故，它没有给我我想要的结果。我注意到Msgbox并未涵盖整个JSON字符串，但不确定是否是问题所在。

Private Sub btnrefresh_Click()

Dim URL As String: URL = "https://leilookup.gleif.org/api/v2/leirecords?lei=35380028MYWPB6AUO129"

Dim Http As New WinHttpRequest

Http.Open "GET", URL, False
Http.Send

Dim Resp As String: Resp = Http.ResponseText
MsgBox Resp
Dim Json As Object
Set Json = JsonConverter.ParseJson(Resp)
MsgBox Json("Entity")("LegalName")

End Sub

此刻，我看到运行时错误5。