Suma de los n ppares

Sub npares()

	Dim n,i,pares As Integer
	Dim suma As Double

	suma = 0
	i = 2
	pares = 0

	n = Val(InputBox("cuantos pares debo sumar?: "))
	while pares <> n
		if i Mod 2 = 0 then
			suma = suma + i
			pares = pares + 1
		end if
		i = i + 1
	wend
	MsgBox("La suma de los primeros " & n & " numeros pares es: " & suma)

End Sub