Vba If Array Element Isotopes