programa que sume los numeros pares y multiplique los Impares en Vb

Public Class Form1

    Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click

        Dim Numero, i, num, suma, multiplicacion As Integer

        multiplicacion = 1

        For i = 1 To 10

            Numero = InputBox("Digite un numero")

            num = Val(Numero) Mod Val(2)

            If num = 0 Then

                TxtNúmero.Text = "El número es par"

                suma = Numero + suma

                TxtNúmero1.Text = suma

            Else

                TxtNúmero2.Text = "El número es impar"

                multiplicacion = Numero * multiplicacion

                TxtNúmero3.Text = multiplicacion

            End If

        Next

    End Sub

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click

        TxtNúmero.Clear()

        TxtNúmero1.Clear()

        TxtNúmero2.Clear()

        TxtNúmero3.Clear()

    End Sub

    Private Sub CmdCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCerrar.Click

        End

    End Sub

End Class

click aquí para descargar