Visual Basic - Programa que me diga cuantos numeros pares hay

Dim N, CP, I As Integer

Dim R As Single

Private Sub Operar_Click()

N = Val(Text1.Text)

CP = 0

For I = 0 To N

R = I Mod 2

If R = 0 Then

CP = CP + 1

List1.AddItem I

End If

Next I

Text2.Text = CP

End Sub

dim n, cp, i as integer

dim r as integer

dim suma as integer

private sub operar_click()

	n = val(text1.text)

	cp = 0

	suma = 0

	for i = 0 to n

		r = i mod 2

		if r = 0 then

			cp = cp + 1

			suma = suma + i

			list1.additem i

		end if

	next i

	text2.text = cp				' Total de pares

	text3.text = suma			' Suma de los pares

end sub