Ускорить простую программу

[D_Fed]

Здравствуйте! Помогите пожалуйста с решетом Эратосфена.

Sub Prime(ByVal MaxNum As Long, cp As Long, p() As Long)

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

1. Каким образом заполнить массив только нечётными числами
(или которые заканчиваются на 1, 3, 7 или 9 )

2. Остановить выполнение, когда i^2 станет больше чем MaxNum.

Спасибо!

[Aleksandr H.]

1. Нечетные: If Chislo mod 2 <> 0 Then....
Заканчиваются на 1 3 7 9: If Instr("1379",Right(CSTR(Chislo),1)) > 0 then ...
2. Цикл не до MaxNum a до Sqr(MaxNum)

[D_Fed]

Сообщение от Aleksandr H.

1. Нечетные: If Chislo mod 2 <> 0 Then....
Заканчиваются на 1 3 7 9: If Instr("1379",Right(CSTR(Chislo),1)) > 0 then ...
2. Цикл не до MaxNum a до Sqr(MaxNum)

А для данной программы точно подходит? Могли бы показать куда поставить условия?
Я пробовал у меня выдаёт списки с левыми числами какими-то. Спасибо.

[Cuprum5]

Сообщение от D_Fed

cp = 0

- зачем cp принимать как входной параметр и занулять его сразу в программе?

[Cuprum5]

Сообщение от D_Fed

ReDim Preserve p(1 To cp)

- также нашел такую вещь, что cp здесь при 1 итерации =1 и переопредление массива дает массив из 1 элемента: p(1 To 1). Что-то я пришел к выводу что этот код бред полнейший. Почитайте про метод Эратосфена и напишите нормальную программу(с 0).
Парни, а знает кто-нибудь, что означает ":" в этой строке:

Сообщение от D_Fed

ReDim n(2 To MaxNum):

[Aleksandr H.]

Сообщение от Cuprum5

знает кто-нибудь, что означает ":" в этой строке:

что после был еще какой-то оператор, но аффтар его удалил

[D_Fed]

Сообщение от Aleksandr H.

что после был еще какой-то оператор, но аффтар его удалил

Нет, дальше ничего не было.

[D_Fed]

Сообщение от Cuprum5

- также нашел...

Если не можете помочь, попрошу не флудить.

[Cuprum5]

Я и не флужу, говорю просто то, что в голову пришло.

[Cuprum5]

Составьте сначала алгоритм в своей голове по методу Эратосфена, а потом напишите нормальную программу, чтобы не было таких фатальных ошибок, как у Вас в 1 сообщении. Ждем с удовольствием!!!!!