Определить количество четных чисел в последовательности - VB

Формулировка задачи:

Тема:Обработка числовой последовательности с неопределенным количеством элементов. Какие (четные или нечетные) числа находятся в конце вводимой последовательности и сколько их? Количество чисел последовательности не определено. Вообщем, никак не решу эту задачу, главная проблема - как показать последний член последовательности? Уже голову сломала, в окне кода написала, все что знаю, но что-то никак... Так что, хелп!!! если, кто может проверить правильность написанного, буду благодарна, чтоб препод не придрался

Private Sub Command3_Click()
Dim N As Integer, x As Integer, kol As Integer, s As String, i As Integer
N = InputBox("Введите размер последовательности N")
kol = 0
s = ""
For i = 1 To N
x = Rnd * 100
s = s & " " & x
If x Mod 2 = 0 Then kol = kol + 1
If x Mod 2 <> 0 Then kol2 = kol2 + 1
Next i
MsgBox s & ",количество четных чисел " & kol & ",количество нечетных чисел" & kol2
End Sub

Решение задачи: «Определить количество четных чисел в последовательности»

textual
                            Листинг программы 
                        
                            If i = N And x Mod 2 = 0 Then Print "В конце последовательности четное число"
If i = N And x Mod 2 <> 0 Then Print "В конце последовательности нечетное число"