Private Function SumaPares(ByVal vec() As Integer, ByVal j As Integer) As Integer
Dim suma As Integer
If j = 0 Then
If (vec(j) Mod 2 = 0) Then
suma = vec(j)
Else
suma = 0
End If
Else
suma = SumaPares(vec, j - 1)
If (vec(j) Mod 2 = 0) Then
suma = suma + vec(j)
Else
suma = suma
End If
End If
Return suma
End Function