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