Somar números positivos, pares, inferiores ou iguais a N

Olha tem um exercicio pra executar que parece ser bem simples porem to quebrando muito minha cabeça

sera que alguem pode me direcionar ficarei eternamente grato!

segue abaixo o exercicios

Construa um projeto em VB que calcule a soma de todos os

números positivos pares inferiores ou iguais a N. Para efetuar o cálculo da soma, escreva uma

função que receba como parâmetro o número N e que exiba (com uma caixa de mensagens) o

resultado final. OBS: a função deve ter a seguinte declaração:

Public Function CalculaSoma (ByVal intN As Integer)

cheguei a esse formula esse código mais sem sucesso :/

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim N As Integer

MessageBox.Show("Soma dos pares: " & N)

End Sub

Public Function CalculaSoma(ByVal N As Integer)
N = (Me.TextBox1.Text)

For N = 1

If N Mod 2 = 0 Then
N = N + N

End If

Next

End Function
　　
End Class