Leren programmeren: filmtickets

Private Sub cmdBereken_Click()
Dim punten As Single 'hoeft niet altijd geheel te zijn
Dim maxpunten As Integer
Dim resultaat As Single
Dim boodschap
If Not IsNumeric(txtPunten.Text) Then Exit Sub
punten = CSng(txtPunten.Text)
If Not IsNumeric(txtMaximum.Text) Then Exit Sub
maxpunten = CInt(txtMaximum.Text)
resultaat = punten / maxpunten *100
boodschap = "Je hebt " & Int(resultaat) & " % behaald."
If resultaat >= 50 Then boodschap = boodschap & vbCrLf & "Proficiat. Je hebt een filmticket gewonnen"
lblResultaat.Text = boodschap