Как создать список простых чисел? - VB

'' Ниже реализован алгоритм определения простых
'' чисел, имеющий название 'Решето Эратосфена'
'' Недостатком алгоритма является то, что в памяти
'' приходится держать весь ряд натуральных чисел
'' от 1 до MaxNum. Есть алгоритмы посложнее, где в памяти
'' держим лишь найденные простые числа, но время счета увеличивается
'' (бывает, что и существенно).
Public Sub Eratosfen(ByVal MaxNum As Long, cp As Long, p() As Long)
   '' Входной параметр:
   '' MaxNum - максимальное целое число, которое ограничивает
   ''          искомые простые числа.
   '' Выходные параметры:
   '' cp - количество простых чисел;
   '' p - массив (размерность 1..cp) простых чисел.
Dim i As Long, j As Long
Dim n() As Boolean
cp = 0
ReDim n(2 To MaxNum):
For i = 2 To MaxNum
  If Not n(i) Then
    cp = cp + 1
    ReDim Preserve p(1 To cp)
    p(cp) = i
    For j = i + i To MaxNum Step i
      n(j) = True
    Next
  End If
Next
End Sub