Преобразовать одномерный массив: нечетные элементы в начало, четные - в конец

Option Explicit
Private Sub Command1_Click()
Dim d(20) As Integer, d1(20) As Integer, _
i As Integer, j As Integer, a As Integer
 Cls
 Randomize
  For i = 1 To 20
    If Rnd >= 0.5 Then a = -4 Else a = 8
     d(i) = Int(Rnd * a)
     Print d(i);
      If i Mod 2 <> 0 Then
          j = j + 1
          d1(j) = d(i)
       Else
          d1(j + 10) = d(i)
       End If
  Next i
    CurrentX = 0
  For i = 1 To 20
    CurrentY = 300
    Print d1(i);
  Next i
End Sub

Option Base 1
Private Sub Command1_Click()
Dim A(20) As Single, temp(20) As Single, counter As Integer
Dim i As Integer
Randomize
For i = 1 To 20
    A(i) = Int(11 * Rnd - 4)
    If (i Mod 2) <> 0 Then
        temp(i) = A(i)
    Else
        counter = counter + 1
        temp(counter + 10) = A(i)
    End If
Next i

Option Base 1
Private Sub Command1_Click()
Dim A(20) As Single, temp(20) As Single, counter As Integer, counterJ As Integer
Dim i As Integer
Randomize
For i = 1 To 20
    A(i) = Int(11 * Rnd - 4)
    If (i Mod 2) <> 0 Then
        counterJ = counterJ + 1
        temp(counterJ) = A(i)
    Else
        counter = counter + 1
        temp(counter + 10) = A(i)
    End If
Next i