Sumatoria de pares consecutivos en Visual Basic Excel

Como ya es de costumbre, primero realizamos la creación de los botones y la caja de inserción, en la publicación dejamos la imagen de demostración, en lo posible no modificar nada para asegurarnos del funcionamiento sin errores.

Acto seguido procedemos con el insertado del código en el botón

Private Sub CommandButton1_Click()Dim num As Integer
num = Val(TextBox1)
For i = 1 To num
If (i Mod 2 = 0) Then
respuesta = respuesta + i
End If
Next
TextBox2 = respuesta
End Sub

Nota: Se recomienda no modificar nada así que por lo pronto el código no sera insertado todavía.