Перестановка элементова массива,VBA

[xrenomx]

Всем привет.Пытаюсь решить задачу но озадачился под конец.
Необходимо переставить элементы массива,так,чтобы в начале оказались четные числа,а в конце - нечетные,вот как у меня вышло:

Public Sub Arr()
Dim i%, n%, a%()
 n = InputBox("Vvedite razmernost' massiva")
 ReDim a(1 To n)
 For i = 1 To n
 a(i) = InputBox(" A(" & i & ") =")
 Next i
 For j = 0 To i
 If a(i) Mod 2 Then
 
    Else

 End If
 Next j
End Sub

И вот не знаю какой код вписывать между Else.

Заранее оч. признателен.

[xrenomx]

aп,нужнa помощь.
Нужно ли для этого создавать 2 массива,один для четных элементов,другой для нечетных

[doober]

Public Sub Arr()
Dim i%, n%, a%(),NN%,Tmp%
 n = InputBox("Vvedite razmernost' massiva")
 ReDim a(1 To n)
 For i = 1 To n
 a(i) = InputBox(" A(" & i & ") =")
 Next i
 NN = 1
 For J = 1 To N
 If a(J) Mod 2 = 0 Then
 Tmp = a(NN)
 a(NN) = a(J)
 NN = NN + 1
  a(NN) = Tmp
  J = NN
 End If
 Next J
End Sub

[xrenomx]

О,спасибо большое,осталось только вот вывести результат на экран,как раз таки,чтобы первыми были четные элементы,а потом нечетные,пробовал:

Public Sub Arr()
Dim i%, n%, a%(), NN%, k%, Tmp%
 n = InputBox("Vvedite razmernost' massiva")
 ReDim a(1 To n)
 For i = 1 To n
 a(i) = InputBox(" A(" & i & ") =")
 Next i
 NN = 1
 For j = 1 To n
 If a(j) Mod 2 = 0 Then
 Tmp = a(NN)
 a(NN) = a(j)
 NN = NN + 1
  a(NN) = Tmp
  j = NN
 End If
 Next j
 
prompt = ""
For k = 1 To UBound(a)
prompt = prompt & a(NN) & Chr(13)
MsgBox prompt
Next k
End Sub

Но выводит что-то явно не то...

[doober]

Писал в блокноте и не проверил.Теперь работает правильно

   Dim i%, n%, a%(), Tmp%
        n = InputBox("Vvedite razmernost' massiva")
        ReDim a(1 To n)
        For i = 1 To n
                a(i) = InputBox(" A(" & i & ") =")
        Next i
        NN = n
        For j = 1 To n
                For m = 1 To n - 1
                        If a(m) Mod 2 = 1 Then
                                Tmp = a(m)
                                a(m) = a(j)
                                a(j) = Tmp
                        End If
                Next
        Next
        s = ""
        For j = 1 To n
                s = s & a(j) & vbCrLf
        Next
        MsgBox s