【VBA api Jsonについて】

Question

前提

お世話になります。
trello api とExcelを連携させるツールを作成しておりまして、
jsonの空文字の場合の処理がわからずつまずいてしまっております。。

どなたかご教授頂けると幸いです。

実現したいこと

-空文字の場合nullまたは"0"で返したい

発生している問題・エラーメッセージ

obj("name")はどちらも正常に取得できておりますが、
obj("labels")(1)("name")の２周目のforで実行エラー"5"「プロシージャの呼び出し、または引数が不正です。」が起きてしまいます。

エラーメッセージ
実行エラー"5"「プロシージャの呼び出し、または引数が不正です。」
--Log-----
テスト
重要ラベル
TEST

### 該当のソースコード

VBA
ソースコード
※前提として、クラスよりレスポンスが返ってくるようにしております為、
msg の中は下記jsonになります。

【VBA】
Dim newcard As New Trello
Dim msg As String
Dim res
Dim obj


msg = newcard.Get_Cards_ALL(List_maintenance)
'Debug.Print msg

Set res = ParseJson(msg)
For Each obj In res
Debug.Print obj("name")
Debug.Print obj("labels")(1)("name")
Next

Set res = Nothing
End sub


【レスポンスjson】tabが効かず見にくく申し訳ございません。http://json.parser.online.fr/

[
{
"id":"0000",
"name":"テスト",
"labels":[
{
"id":"0000",
"idBoard":"1111",
"name":"重要ラベル",
"color":"green"
}
]
},
{
"id":"0000",
"name":"TEST",
"labels":[
]
}
]
### 試したこと
恐らく、"labels":[] の中身が空でnameパラメータが見つからないため起こっているのかと予想しますが、IFで
For Each obj In res
IF NOT(obj("labels")="") then
Debug.Print obj("name")
Debug.Print obj("labels")(1)("name")
end if
Next

で回避しても無駄でした。。。
jsonで空文字、パラメータ無しの場合の処理がわかりません。
ご教授頂けましたら幸いです。
ここに問題に対して試したことを記載してください。

### 補足情報
VBA-JSONを使用しております

Answer 1

ソースからの推測ですが「VBA-JSON」を使用している認識であっていますかね？
あっているならResはDictionaryのはずなので、nameキーが存在するか確認すれば行けると思います。

If obj.Exists("name") Then
    Debug.Print "キーに name は存在します。"
Else
    Debug.Print "キーに name は存在しません。"
End If