Vba Create Array And Loop Through Objects In Json Format