Sum Average Problem Code

Private Sub cmdAverageTotal_Click()

    Dim intTotal, intIntegerValue As Integer

    Dim intNumberOfIntegers As Integer

    Dim intCount, intAverage As Integer

    intTotal = 0

    intNumberOfIntegers = Val(InputBox("Enter Number of Integers to follow", _

        "Number of Integers", “2"))

    For intCount = 1 To intNumberOfIntegers

        intIntegerValue = Val(InputBox("Enter Integer value", "Integer Value", _

            "10"))

        intTotal = intTotal + intIntegerValue

    Next intCount

    intAverage = intTotal / intNumberOfIntegers

    MsgBox "Average is " & intAverage, vbOKOnly, "Average”   

    MsgBox "Total is " & intTotal, vbOKOnly, "Sum of Integers"

End Sub