Найти произведение положительных и отрицательных элементов массива

Module Module1
 
    Sub Main()
        Dim ar As Integer()
        'Задание присвоением
        ar = New Integer() {1, 2, -3, 4, 5, 6, 7, -8, 9, -10, 11, 12, 13, -14, 15, 16, 17, -18, 19, 20}
        Console.WriteLine("Массив, заданный присвоением в коде:")
        PrintAllResults(ar)
        ar = New Integer(3) {}
        Dim pos As Integer = Console.CursorTop
        For i As Integer = 0 To ar.GetUpperBound(0)
            Console.SetCursorPosition(0, pos)
            Console.Write(New String(" "c, Console.BufferWidth))
            Console.SetCursorPosition(0, pos)
            Console.Write("Укажите {0} элемент массива: ", i)
            ar(i) = Integer.Parse(Console.ReadLine())
        Next
        Console.WriteLine("Массив, заданный вводом с клавиатуры:")
        PrintAllResults(ar)
        FillRandom(ar, -30, 20)
        Console.WriteLine("Массив, заданный случайным заполненением:")
        PrintAllResults(ar)
        Console.Read()
    End Sub
 
    Sub PrintAllResults(ar As Integer())
        PrintArray(ar)
        Console.WriteLine("Произведение положительных элементов: {0}", ProdPositive(ar))
        Console.WriteLine("Произведение отрицательных элементов: {0}", ProdNegative(ar))
        Console.WriteLine(New String("="c, 45))
    End Sub
 
    Sub PrintArray(ar As Integer())
        For Each i As Integer In ar
            Console.Write("{0,-4}", i.ToString())
        Next
        Console.WriteLine()
    End Sub
 
    Function ProdPositive(ar As Integer()) As Double
        Dim result As Double = 1
        Dim notDone As Boolean = True
        For Each i As Integer In ar
            If (i > 0) Then
                result *= i
                notDone = False
            End If
        Next
        Return CDbl(IIf(notDone, Double.NaN, result))
    End Function
 
    Function ProdNegative(ar As Integer()) As Double
        Dim result As Double = 1
        Dim notDone As Boolean = True
        For Each i As Integer In ar
            If (i < 0) Then
                result *= i
                notDone = False
            End If
        Next
        Return CDbl(IIf(notDone, Double.NaN, result))
    End Function
 
    Sub FillRandom(ByRef ar As Integer(), ByVal a As Integer, ByVal b As Integer)
        Dim rnd As New Random(DateTime.Now.Millisecond)
        For i As Integer = 0 To ar.GetUpperBound(0)
            ar(i) = rnd.Next(a, b + 1)
        Next
    End Sub
End Module