Leren programmeren: boete

We gaan dit programma twee keer uitwerken: een keer met twee invoervakken en een uitvoervak, en een keer als Excel functie.

Met de invoervakken txtSnelheid en txtMaxsnelheid en een label lblBoete.

Private Sub cmdBereken_Click()
Dim snelheid As Single
Dim maxsnelheid As Single
Dim boete As Single
If Not IsNumeric(Me.txtSnelheid.Text) Then Exit Sub
snelheid = CSng(txtSnelheid.Text)
If Not IsNumeric(Me.txtMaxsnelheid.Text) Then Exit Sub
maxsnelheid = CSng(txtMaxsnelheid.Text)
If maxsnelheid < snelheid Then
boete = 100 + 2.5 * (snelheid - maxsnelheid)
lblBoete.Caption = "Je moet " & boete & " euro boete betalen"
End If
End Sub

Als Excel functie

Public Function boete(snelheid As Single, maxsnelheid As Single) As Single
If maxsnelheid < snelheid Then boete = 100 + 2.5 * (snelheid - maxsnelheid)
End Function