Vba Create Array And Loop Through Objects In Json Documents