Postgresql Iterate Over Json Array Length Vba