Найти количество чисел в массиве которые делятся на 3, но не делятся на 7 - Visual Basic .NET

Dim arr(100) As Integer
        For i = 0 To arr.Length - 1 'Заполняем массив
            arr(i) = i
        Next
        For Each el In arr
            If el Mod 3 = 0 Then
                If el Mod 7 <> 0 Then
                    ListBox1.Items.Add(el)
                End If
            End If
        Next