vb.net JSON Is Nothing in nested - json

Question

Snippet From JSON
"stats": [
{
"stat": 32,
"amount": 651,
"reforgedAmount": -434
},
{
"stat": 5,
"amount": 2001
},
{
"stat": 36,
"amount": 1544
},
{
"stat": 7,
"amount": 3362
},
{
"stat": 49,
"amount": 434,
"reforged": true
}
],
"armor": 2244
},
my current code
stat0lbl.Text = If(jResults("items")(itemtypelbl.Text) Is Nothing, "", jResults("items")(itemtypelbl.Text)("stats")(0)("stat").ToString()) + Environment.NewLine + If(jResults("items")(itemtypelbl.Text) Is Nothing, "", jResults("items")(itemtypelbl.Text)("stats")(1)("stat").ToString()) + Environment.NewLine + If(jResults("items")(itemtypelbl.Text) Is Nothing, "", jResults("items")(itemtypelbl.Text)("stats")(2)("stat").ToString()) + Environment.NewLine + If(jResults("items")(itemtypelbl.Text) Is Nothing, "", jResults("items")(itemtypelbl.Text)("stats")(3)("stat").ToString()) + Environment.NewLine + If(jResults("items")(itemtypelbl.Text) Is Nothing, "", jResults("items")(itemtypelbl.Text)("stats")(4)("stat").ToString()) + Environment.NewLine + If(jResults("items")(itemtypelbl.Text)("stats")(5) Is Nothing, "", jResults("items")(itemtypelbl.Text)("stats")(5)("stat").ToString())
this code works perfectly until it comes to stat 5 in the array, im not sure how to handle the Is Nothing in an array

Answer 1

I think pushing to do this logic in single line doesn't bring any advantage but far less readable code (and redundant checking jResults("items")(itemtypelbl.Text) Is Nothing). I'd suggest to do it in standard If block (if possible) :
If jResults("items")(itemtypelbl.Text) Is Not Nothing Then
Dim newStat = _
jResults("items")(itemtypelbl.Text)("stats")(0)("stat").ToString() & Environment.NewLine & _
jResults("items")(itemtypelbl.Text)("stats")(1)("stat").ToString() & Environment.NewLine & _
jResults("items")(itemtypelbl.Text)("stats")(2)("stat").ToString() & Environment.NewLine & _
jResults("items")(itemtypelbl.Text)("stats")(3)("stat").ToString() & Environment.NewLine & _
jResults("items")(itemtypelbl.Text)("stats")(4)("stat").ToString() & Environment.NewLine
If jResults("items")(itemtypelbl.Text)("stats").Count() > 5 Then
newStat &= jResults("items")(itemtypelbl.Text)("stats")(5)("stat").ToString()
End If
stat0lbl.Text = newStat
End If
I assume that the main confusion is on how to check if stat at index 5 exists. One possible way, as demonstrated above is, using .Count() to check how many data (stat) in collection (stats). If .Count() return more than 5, means there is data at index 5.