Парни, помогите, пожалуйста, с программкой в строк 20. Работа с массивами - VB

Формулировка задачи:

Короче вот задание: "Массив состоит из 12 целых положительных и отрицательных чисел, каждое из которых находится в интервале от 2 до 12. Вывести на экран сначала положительные затем отрицательные числа."
Я пытался ее написать, получилось только разделить положительные и отрицательные оператором mod. Например:
а= 9 mod 2
if a <> 0 then
end if.
Заранее спасибо за помощь.

Решение задачи: «Парни, помогите, пожалуйста, с программкой в строк 20. Работа с массивами»

textual
                            Листинг программы 
                        

                            Sub test()
    Dim aMy(12) As Integer, i As Byte
    Randomize
    For i = 1 To 12
        aMy(i) = (Int(Rnd * 11) + 2) * IIf(Round(Rnd, 0) = 0, -1, 1)
    Next
    For i = 1 To 12
        If aMy(i) > 0 Then Debug.Print aMy(i), i
    Next
    For i = 1 To 12
        If aMy(i) < 0 Then Debug.Print aMy(i), i
    Next
End Sub

                        