Suma de cuadrados de los n primeros números pares consecutivos Visual Basic Excel

Para realizar la suma de los pares consecutivos primero que nada primero comenzaremos con la creación de los siguientes formularios:

• La caja de inserción de datos, el cual nos permitirá insertar los números deseados 
• El botón de datos, cuya creación nos ayudara a realizar la operación deseada 
• La caja de muestreo, esta caja nos permitirá mostrar los resultados de los procesos.

Imagen de los formularios

Código de inserció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 ^ 2
End If
Next
TextBox2 = respuesta
End Sub

Nota: Aun falta insertar el codigo