Console : Mencari Bilangan ganjil dan genap di Visual Basic ( VB .Net )

Module Module1
Dim n, i, bil(100), genap, ganjil, count1, count2 As Short
Dim s1, s2 As String


Sub Main()
Console.WriteLine("Genap dan Ganjil")
Console.WriteLine("================")
Console.WriteLine()
Console.Write("Masukan banyak input : ")
n = Val(Console.ReadLine())
s1 = " " : s2 = " "
For i = 1 To n
Console.Write("Bilangan ke-" & CStr(i) & " : ")
bil(i) = Val(Console.ReadLine())
If (bil(i) Mod 2 = 0) Then
genap = bil(i)
s1 = s1 + CStr(genap) + Space(2)
count1 = count1 + 1
ElseIf (bil(i) Mod 2 = 1) Then
ganjil = bil(i)
s2 = s2 + CStr(ganjil) + Space(2)
count2 = count2 + 1
End If
Next
Console.WriteLine()
Console.WriteLine("Bilangan genap adalah : " & s1)
Console.WriteLine("Bilangan ganjil adalah : " & s2)
Console.WriteLine("Jumlah genap adalah : " & count1)
Console.WriteLine("Jumlah ganjil adalah : " & count2)
Console.ReadLine()
End Sub

End Module