Promedio de 4 números en visual basic

Public Class FrmPromedio

    Private Sub CmdIngresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIngresar.Click

        Dim i, num, prod As Integer

        For i = 1 To 4

            num = InputBox("Digite un numero")

            prod = num + prod

            TxtPromedio.Text = prod / 4

        Next

    End Sub

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

        TxtPromedio.Clear()

    End Sub

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

        Me.Close()

    End Sub

End Class

Click aquí para descargar códigos

Click aquí para descargar programa