Private Sub BerechnenButton_Click()
    Dim umsatzEingabe As String
    Dim verkaufsbetragEingabe As String
    Dim umsatz As Double
    Dim verkaufsbetrag As Double
    umsatzEingabe = UmsatzInput.Text
    verkaufsbetragEingabe = VerkaufsbetragInput.Text
    If Not ueberpruefe_Benutzereingaben(umsatzEingabe, verkaufsbetragEingabe, umsatz, verkaufsbetrag) Then Exit Sub
    ProvisionInput.Text = berechne_Provision(umsatz, verkaufsbetrag)
End Sub