VBA-JSONにおける多次元配列へのアクセス

Question

VBA-JSONというJSON形式で取得したデータをパースするためのライブラリを利用しているのですが、下記のような多次元の形式についてアクセスすることができません。

{
  "lastUpdateDate" : "2022-05-XX",
  "count" : "1",
  "divideNumber" : "1",
  "divideSize" : "1",
  "announcement" : [ {
    "sequenceNumber" : "1",
    "registratedNumber" : "TXXXXXXXXXX",
    "process" : "01",
    "correct" : "0",
    "kind" : "1",
    "country" : "1",
    "latest" : "1",
    "registrationDate" : "2023-10-XX",
    "updateDate" : "2022-02-XX",
    "disposalDate" : "",
    "expireDate" : "",
    "address" : "",
    "addressPrefectureCode" : "",
    "addressCityCode" : "",
    "addressRequest" : "",
    "addressRequestPrefectureCode" : "",
    "addressRequestCityCode" : "",
    "kana" : "",
    "name" : "ZZZZZ",
    "addressInside" : "",
    "addressInsidePrefectureCode" : "",
    "addressInsideCityCode" : "",
    "tradeName" : "XXXXXX",
    "popularName_previousName" : ""
  } ]
}

実際にアクセスしたいのは、"announcement"の中の"name"の値なのですが、以下のコードでアクセスすることができません。

Function getId(reg As String, dat As String)
Dim userid
Dim Parse As Object
Dim Band_Member As Variant
Dim URL As String
Dim parsedUrl As Variant


userid = "YYYYYYYYYY"
URL = "https://web-api.invoice-kohyo.nta.go.jp/1/valid?id=" & userid & "&number=" & reg & "&day=" & dat & "&type=21"
parsedUrl = Application.WebService(URL) '標準関数で対象のURLがない場合、#VALUE!を返す

If IsError(parsedUrl) Then 'here
 getId = "ERROR:01"
Else
    Set Parse = JsonConverter.ParseJson(parsedUrl)
    If Parse("count") = 0 Then
     Debug.Print (1)
      getId = "ERROR:02"
     ElseIf Parse("count") = 1 Then
        Debug.Print Parse("announcement")("name")'here
 　　 Debug.Print (2)
      getId = "SUCCESS"
     Else
      Debug.Print (3)
      getId = "ERROR:03"
      
     End If
  End If

End Function

現象としては、Debug.Print Parse("announcement")("name")'hereが何も出力されることはないだけではなくその後の Debug.Print (2)も出力されず、getId = "SUCCESS"については#VALUEを返す結果となってしまいます。

値のアクセス方法と解決方法について、お知恵のある方がいればアドバイスをいただけると幸いです。

宜しくお願い申し上げます。