Найти сумму отрицательных элементов нового массива - VB

Dim K(20) As Integer
        Dim r As New Random
        Dim j As Integer
        Dim summa As Integer
        For i = 0 To 20
            K(i) = r.Next(-5, 5) 'Набор случайных чисел
            If K(i) <> 0 Then
                j = j + 1
            End If
            If K(i) < 0 Then
                summa = summa + K(i)  'сумма отриТ›ательных элементов
            End If
        Next
        MsgBox(summa)
        Dim L(j) As Integer ' Новый массив 
        Dim a As Integer = 0
        For i = 0 To 20
            If K(i) <> 0 Then
                L(a) = K(i)
                a = a + 1
            End If
        Next