В первом массиве собрать все четные элементы исходного, а во втором – все нечетные - VB

Private Sub Command1_Click()
Dim N As Integer
Dim i, k, l
Dim arrA() As Single, arrB() As Single, arrC() As Single
N = InputBox("N")
ReDim arrA(1 To N) As Single
k = 0
l = 0
For i = 1 To N
arrA(i) = InputBox("Vvedite element : " & i)
If (arrA(i) Mod 2) = 0 Then
k = k + 1
ReDim Preserve arrB(1 To k)
arrB(k) = arrA(i)
Else
l = l + 1
ReDim Preserve arrC(1 To l)
arrC(l) = arrA(i)
End If
Next i
answ1 = ""
answ2 = ""
For i = 1 To l
answ1 = answ1 & arrC(i) & Space(3)
Next i
For i = 1 To k
answ2 = answ2 & arrB(i) & Space(3)
Next i
MsgBox answ1
MsgBox answ2
End Sub