Из последовательности выбрать элементы, делящиеся на 3 - VB

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

Здравствуйте Коллеги. История такова, программирую на vb.net хорошо, но волей случая понадобилось написать программу на vb. Вот беда, забыл синтаксис и работу в консоли напрочь, подскажите с решением задачки, совсем ничего сложного:

Организовать ввод последовательности чисел y1, y2,...,yn. Из этой последовательности выбрать элементы, делящиеся на 3. Подсчитать и вывести их число, а так же вывести порядковые номера этих чисел.

Все в консоли.

Решение задачи: «Из последовательности выбрать элементы, делящиеся на 3»

textual
                            Листинг программы 
                        

                            Module Module1
 
    Sub Main()
        Console.Write("Введите размер массива: ")
        Dim n As Integer = Convert.ToInt16(Console.ReadLine())
        Dim a(0 To n) As Integer
        Randomize()
        Dim rand = New Random
        For _i As Integer = 0 To n - 1
            a(_i) = rand.Next(-100, 100)
            Console.Write(a(_i).ToString & " ")
        Next _i
        Dim kol As Byte
        Console.WriteLine()
        For index As Integer = 0 To n - 1
            If a(index) Mod 3 = 0 Then
                Console.WriteLine("Порядковый номер " & index & ", число " & a(index))
                kol = kol + 1
            End If
        Next index
        Console.Write("Количество " & kol)
        Console.ReadKey()
    End Sub
 
End Module
                        