Vba Find Index Of String Array In Json