Массивы в VBA

[Шутка]

Можете помочь с таким заданием? Ввести массив a(n). Найти произведение элементов массива. Четные элементы массива заменить на произведения.