Foreach Array Function In Vba