Vba Initialize Integer Array