Average Value Problem Code

Private Sub cmdAverage_Click()

    Dim intTotal, intIntegerValue As Integer

    Dim intCount, intAverage As Integer

    intTotal = 0

    intCount = 0

    intIntegerValue = Val(InputBox("Enter Integer value, last value is 999", _

        "Integer Value", "999"))

    Do Until intCount = 5 Or intIntegerValue = 999

        intTotal = intTotal + intIntegerValue

        intCount = intCount + 1

        intIntegerValue = Val(InputBox("Enter Integer value, last value is 999", _

            "Integer Value", "999"))

    Loop

    intAverage = intTotal / intCount

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

End Sub