как составить код в Visual Basic

Друзья, вы могли помочь составить код для небольшой задачки, сам я, к сожалению, не могу справиться.
Был бы премного благодарен

- Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел.