Найти сумму всех элементов массива ,кроме элементов от K до L включительно - VB

Option Explicit
Private Sub Комманда1_Click()
Dim I
Dim S As Double
Dim N(20) As Integer
Dim K As Integer
Dim L As Integer
Dim Z As Integer
K = Val(Text1.Text)
L = Val(Text2.Text)
Randomize
For I = 1 To 20
N(I) = InputBox("число" & Str(I) & "=", "Запрос числа", Int(20 * Rnd + 1))
If N(I) < K Or N(I) > L Then S = S + N(I): Z = Z + 1
Next I
Print "Найдено " & Z & "  чисел. Сумма равняется " & S
End Sub