Определить сумму элементов массива N, которые кратны трём - VB

Function SumK3(A() As Integer, n As Integer) As Integer
     If (n = UBound(A, 1)) Then
        SumK3 = IIf((A(n) Mod 3) = 0, A(n), 0)
     Else
        SumK3 = IIf((A(n) Mod 3) = 0, A(n), 0) + SumK3(A, n + 1)
     End If
End Function
Sub Main()
Dim A(1 To 5) As Integer
     A(1) = 3
     A(2) = 5
     A(3) = 18
     A(4) = 20
     A(5) = 30
     Debug.Print SumK3(A(), 1)
End Sub