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

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

JSON
1{
2  "lastUpdateDate" : "2022-05-XX",
3  "count" : "1",
4  "divideNumber" : "1",
5  "divideSize" : "1",
6  "announcement" : [ {
7    "sequenceNumber" : "1",
8    "registratedNumber" : "TXXXXXXXXXX",
9    "process" : "01",
10    "correct" : "0",
11    "kind" : "1",
12    "country" : "1",
13    "latest" : "1",
14    "registrationDate" : "2023-10-XX",
15    "updateDate" : "2022-02-XX",
16    "disposalDate" : "",
17    "expireDate" : "",
18    "address" : "",
19    "addressPrefectureCode" : "",
20    "addressCityCode" : "",
21    "addressRequest" : "",
22    "addressRequestPrefectureCode" : "",
23    "addressRequestCityCode" : "",
24    "kana" : "",
25    "name" : "ZZZZZ",
26    "addressInside" : "",
27    "addressInsidePrefectureCode" : "",
28    "addressInsideCityCode" : "",
29    "tradeName" : "XXXXXX",
30    "popularName_previousName" : ""
31  } ]
32}

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

vba
1Function getId(reg As String, dat As String)
2Dim userid
3Dim Parse As Object
4Dim Band_Member As Variant
5Dim URL As String
6Dim parsedUrl As Variant
7
8
9userid = "YYYYYYYYYY"
10URL = "https://web-api.invoice-kohyo.nta.go.jp/1/valid?id=" & userid & "&number=" & reg & "&day=" & dat & "&type=21"
11parsedUrl = Application.WebService(URL) '標準関数で対象のURLがない場合、#VALUE!を返す
12
13If IsError(parsedUrl) Then 'here
14 getId = "ERROR:01"
15Else
16    Set Parse = JsonConverter.ParseJson(parsedUrl)
17    If Parse("count") = 0 Then
18     Debug.Print (1)
19      getId = "ERROR:02"
20     ElseIf Parse("count") = 1 Then
21        Debug.Print Parse("announcement")("name")'here
22 　　 Debug.Print (2)
23      getId = "SUCCESS"
24     Else
25      Debug.Print (3)
26      getId = "ERROR:03"
27      
28     End If
29  End If
30
31End Function