Вывести на экран строку, содержащую наименьшее число отрицательных элементов

Module MainModule
    Sub Main()
        Dim matrix As Integer(,) = {
            {2, 8, 4, -3, -2},
            {-3, -12, 0, -1, 2},
            {14, 16, -3, -5, -7},
            {-1, -2, -3, -4, -5},
            {1, 2, 0, -10, 8},
            {2, 8, 4, -3, -2}
        }
        Dim index = 0
        Dim count = 0
        For i = 0 To matrix.GetLength(0) - 1
            Dim current = 0
            For j = 0 To matrix.GetLength(1) - 1
                If matrix(i, j) < 0 Then
                    current += 1
                End If
            Next
            If count < current Then
                count = current
                index = i
            End If
        Next
        ' Вывод
        For i = 0 To matrix.GetLength(1) - 1
            Console.Write("{0} ", matrix(index, i))
        Next
    End Sub
End Module