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

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

Private Sub Command3_Click()
Dim N As Integer, x As Integer, kol As Integer, kol2 As Integer, _
s As String, i As Integer
N = InputBox("Ââåäèòå ðàçìåð ïîñëåäîâàòåëüíîñòè N")
kol = 0
kol2 = 0
s = ""
For i = 1 To N
    x = Fix(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 & vbCrLf & "êîëè÷åñòâî ÷åòíûõ ÷èñåë " & kol & _
",êîëè÷åñòâî íå÷åòíûõ ÷èñåë" & kol2
End Sub

t= "ноль"
For i = 1 To N
    x = Fix(Rnd * 100)
    s = s & x & " "
    If x Mod 2 = 0 Then
        kol = kol + 1
        t= "четное"
    Endif
    If x Mod 2 <> 0 Then
        kol2 = kol2 + 1
        t= "не четное"
    Endif
Next i
MsgBox s & vbCrLf & "количество четных чисел " & kol &  vbcrlf & _
",количество нечетных чисел" & kol2 & vbcrlf & _
"последнее число " & t
End Sub

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