finding total payment in visual basic
<p>I am trying to make a program that can find the payment a user can get after entering in their hours, (5 entries in total, and must add up to 40 hours or less). Can anyone please explain this to me? I am new to visual basic and I don't know why I don't get an output.</p>

<pre><code>' Counter-controlled repetition: Time Entry problem.
Public Class TimeEntry

    Private Sub SubmitTimeButton_Click(sender As Object, e As EventArgs) Handles SubmitTimeButton.Click

        'if user entered hours
        If Enterhourstextbox.Text &lt;= 5 Then
            ' add the hours to the TimeRecordsListBox
            TimeRecordsListBox.Items.Add(Enterhourstextbox.Text)
            Enterhourstextbox.Clear() 'clear the Enterhourstextbox
            Enterhourstextbox.Focus() ' select the Enterhourstetbox
        End If

        ' determine whether to prevent the user from entering more results
        If TimeRecordsListBox.Items.Count = 5 Then
            SubmitTimeButton.Enabled = False ' disables SubmitTimeButton
            Enterhourstextbox.Enabled = False ' disables Enterhourstextbox
            GetpaymentButton.Enabled = True ' enable GetpaymentButton
        End If

    End Sub ' submitTimeButton_Click

    ' calculates the total hours based on the hours in TimeRecordsListBox
    Private Sub GetpaymentButton_Click(sender As Object, e As EventArgs) Handles GetpaymentButton.Click

        Dim hourtotal As Integer ' sum of hours entered by user
        Dim hourCounter As Integer ' counter for hours 
        Dim hour As Integer ' hour input by user
        Dim total As Integer ' payment total

        ' initialization phase
        hourtotal = 0 ' set total to zero before adding hours to it
        hourCounter = 0 ' prepare to loop

        ' processing phase
        Do While hourCounter &lt; TimeRecordsListBox.Items.Count
            hour = TimeRecordsListBox.Items.Add(hourCounter) ' get next hour
            hourtotal += hour
            hourCounter += 1 ' add 1 to hourCounter
        Loop

        ' termination phase
        If hourCounter &lt;= 0 Or hourCounter &gt;= 15 Then
            getpaymentlabel.Text = hourtotal * 9
        End If

        If hourCounter &lt;= 16 Or hourCounter &gt;= 25 Then
            getpaymentlabel.Text = hourtotal * 13
        End If

        If hourCounter &lt;= 26 Or hourCounter &gt;= 40 Then
            getpaymentlabel.Text = hourtotal * 20
        End If

    End Sub ' calculateAverageButton_Click

    Private Sub CleartimeButton_Click(sender As Object, e As EventArgs) Handles CleartimeButton.Click

        TimeRecordsListBox.Items.Clear() ' removes all items
        getpaymentlabel.Text = String.Empty ' enables submitResultButton
        Enterhourstextbox.Clear() ' remoces items from EnterhoursTextBox

    End Sub
End Class
</code></pre>