Экранирование нулевого объекта Json

Question

Я пытаюсь избежать того, что кажется Нулевым или Не Объектом, но мне не повезло. Я пробовал несколько операторов If, но я поместил большинство из них в одну строку, чтобы вы увидели, что я пробовал. Ошибка 5007, и она пропускает строку, где я хочу установить ячейку в ноль. Код работает с объектами, в которых есть данные, но он вводит данные предыдущей ячейки в новую ячейку, которая должна быть пустой.

If IsNull(S.Eval("J.responses")) Or S.Eval("J.responses") = "" Or IsEmpty(S.Eval("J.responses")) Then
  shMain.Cells(29, x) = 0
Else
  pri = S.Eval("J.responses[1].aggregations[2].buckets[0][1].value")
End If

pri = S.Eval("J.responses[1].aggregations[2].buckets[0][1].value")
opp = S.Eval("J.responses[3].aggregations[2].buckets[0][1].value")
shMain.Cells(29, x) = pri / opp