Excel - La suma de los pares

Sub Problema10()

Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim s As Integer
Dim mensaje As String

Dim v(10) As Integer

MsgBox ("Digitar 10 numeros")
n = 10
For i = 1 To n

mensaje = InputBox("Digite el número", i)
v(i) = Val(mensaje)
Next i
For i = 2 To n
m = v(i) Mod 2

If m = 0 And v(i) <> 0 Then
j = v(i)
s = j / s
End If
Next i

MsgBox ("la suma de los pares es :" & s)

Grupo buenas noches he tratado de realizar este codigo pero no compila en vba excel,

leer 10 números enteros almacenados en un vector y determinar a cuanto es igual la suma de los pares de los numeros leidos, el codigo esta medianamente bien por que compila pero el problema esta en que no me aroja un resultado siempre es 0

Las cosas que están medianamente bien también están medianamente mal y esta esta mal.


Funciona bien si los número introducidos no tienen un valor mayor de 32768 y la suma tampoco.
Para números mayores cambia:


Saludos.
\\//_