Найти все простые числа, меньшие натурального числа n

Imports System.Console
Module Main
 
    'Выполняет ввод данных, вызов процедуры решения и печать результата
    Sub main()
        Dim i As Long
        Dim a[] As Long
        Dim n As Long        'Число, которое нужно проверить
        Dim f1 As Boolean        'f1==true - неверный ввод
        Dim Ex As ConsoleKeyInfo    'Описывает нажатую клавишу консоли
        Dim flag As Boolean
 
        'Зацикливаем программу 
        Do
            'Ввод исходных данных
            f1 = True
            Do While f1
                Clear()               'Очистка экрана
                Write("Введите проверяемое натуральное число:") : n = ReadLine()
                If (n < 2 Or n > 32767) Then  'Проверка на допустимые значения
                    WriteLine("Число должно быть в диапазоне [2:32767].Попробуйте ещё раз.")
                    ReadLine()
                Else : f1 = False
                End If
 
            Loop
 
            If Solution(n) Then  'Печать результата
                WriteLine("***************************")
                Write("Число ")
                Write(n)
                For i = 0 To a[i]>0 and a[i]<=n
                Next a[i]
                WriteLine(" Выводятся все простые числа ")
            End If
 
            WriteLine("Выход – Esc, повтор – любая другая клавиша")
            Ex = ReadKey(True)
        Loop Until Ex.Key = ConsoleKey.Escape
    End Sub
End Module

Module Sol
    'Процедура проверки на простое число
    Function Solution(ByVal x As Short) As Boolean
        Dim i As Short          'Количество простых чисел в массиве
        Dim j As Short          'Переменные цикла
        Dim k As Short
        Dim flag As Short
        Dim pr(200) As Short    'Массив простых чисел
 
        i = 0
        a[0]=1
        j = 1
        For i = 2 To n
            flag = 1
            For k = 2 To k * k <= i
                If i Mod k = 0 Then
                    flag = 0
                    Exit For
            If flag Then
                a [j] = i
                j += 1
            End If
        Next
    End Function
End Module

For i=1 to 10
тело цикла
next

   Do While (условие: boolean)
      тело цикла
   Loop
'Пример
   i = 0
   Do While (i<10)
      a +=i
      console.writln("a= " & a)
      i +=1
   Loop