New to programming and looking for some help. I need this program to allow me to enter 12 temperatures and give me an average. I have everything working correctly ( I think) except where the average should be I get 0.0.

Not sure if it matters but I'm using VB 2005.

Code:
Option Strict On

Public Class frmBoard

    
    Private Sub frmBoard_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click

        Dim strTemperature As String
        Dim decTemperature As Decimal
        Dim decAverageTemperature As Decimal
        Dim decTotalOfAllTemperatures As Decimal = 0D
        Dim strInputBoxMessage As String = "Enter the temperature for the month #"
        Dim strInputBoxHeading As String = "Monthly Temperature"
        Dim strNormalBoxMessage As String = "Enter the temperature for the month #"
        Dim strNonNumericErrorMessagae As String = "Error - Enter a number for the temperature"
        Dim strNegativeNumberErrorMessage As String = "Error - Enter a postive number for the temperature"

        ' Declare and initialize loop variables
        Dim strCancelButtonClicked As String = ""
        Dim intMaximumNumberOfEntries As Integer = 12
        Dim intNumberOfEntries As Integer = 1

        ' This loop allows the user to enter the temperature of up to 12 months.
        ' The loop terminates when the user has entered 12 temperatures or the user
        ' clicks the Cancel button or the Close button in the InputBox

        strTemperature = InputBox(strInputBoxMessage _
         & intNumberOfEntries, strInputBoxHeading, " ")

        Do Until intNumberOfEntries > intMaximumNumberOfEntries _
         Or strTemperature = strCancelButtonClicked

            If IsNumeric(strTemperature) Then
                decTemperature = Convert.ToDecimal(strTemperature)
                If decTemperature > 0 Then
                    Me.lstTemp.Items.Add(decTemperature)
                    decTotalOfAllTemperatures += decTemperature
                    intNumberOfEntries += 1
                    strInputBoxMessage = strNormalBoxMessage
                Else
                    strInputBoxMessage = strNegativeNumberErrorMessage
                End If
            Else
                strInputBoxMessage = strNonNumericErrorMessagae
            End If

            If intNumberOfEntries <= intMaximumNumberOfEntries Then
                strTemperature = InputBox(strInputBoxMessage _
                    & intNumberOfEntries, strInputBoxHeading, " ")

            End If

        Loop


        ' Makes Label Visible
        Me.lblAverageTemperature.Visible = True

        ' Calculates and displays average temperature
        If intNumberOfEntries > 1 Then
            decTemperature = decTotalOfAllTemperatures / (intNumberOfEntries - 1)
            Me.lblAverageTemperature.Text = "Average Temperature is " & _
                decAverageTemperature.ToString("F1") & " degrees"
        Else
            Me.lblAverageTemperature.Text = "No Temperature Entered"
        End If

        ' Disables the Enter Temperature button
        Me.btnEnter.Enabled = False

    End Sub

    Private Sub mnuClearItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClearItem.Click
        Me.lstTemp.Items.Clear()
        Me.lblAverageTemperature.Visible = False
        Me.btnEnter.Enabled = True

    End Sub

    Private Sub mnuExitItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExitItem.Click
        Me.Close()

    End Sub
End Class