Below is a working example based on the requirements outlined. Notice that the names that I give controls and variables make the code very easy to read.
Public Class Form1
Private Total As Integer
Private Count As Integer
Private MaxEntries As Integer = 5
Private Sub ButAdd_Click(sender As Object, e As EventArgs) Handles ButAdd.Click
If String.IsNullOrEmpty(txtInput.Text.Trim) Then Return
Dim Value As Integer
If Integer.TryParse(txtInput.Text, Value) Then
If Count < MaxEntries Then
Count += 1
Total += Value
labTotal.Text = Total.ToString
Else
txtInput.Enabled = False
End If
End If
txtInput.ResetText()
txtInput.Select()
End Sub
End Class