В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов

        Dim Количество As Integer
        Количество = InputBox("Введите необходимое количество элементов:", , "3")
 
 
        'Минус один -- потому что индексация массивов в .net начинается с нуля
        Dim МаксимальныйИндексМассива As Integer = Количество - 1
 
        'Объявляем массив integer с нужным количеством элементов 
        Dim Массив(МаксимальныйИндексМассива) As Integer
 
        Dim КоличествоЧётныхЧисел As Integer = 0
        Dim КоличествоНечётныхЧисел As Integer = 0
 
        For ТекущийИндекс = 0 To МаксимальныйИндексМассива Step 1
            Массив(ТекущийИндекс) = InputBox("Введите значение элемента с индесом " & ТекущийИндекс, , ТекущийИндекс)
            If Массив(ТекущийИндекс) Mod 2 = 0 Then 'MOD - остаток от деления
                КоличествоЧётныхЧисел = КоличествоЧётныхЧисел + 1
            Else
                КоличествоНечётныхЧисел = КоличествоНечётныхЧисел + 1
            End If
        Next
 
        MessageBox.Show(КоличествоЧётныхЧисел)
        MessageBox.Show(КоличествоНечётныхЧисел)