Option Explicit
Private Sub BerechnenButton_Click()
Dim umsatzEingabe As String
Dim verkaufsbetragEingabe As String
Dim umsatz As Double
Dim verkaufsbetrag As Double
umsatzEingabe = UmsaztInput.Text
verkaufsbetragEingabe = VerkaufsbetragInput.Text
If Not ueberpruefe_Benutzereingaben(umsatzEingabe, _
verkaufsbetragEingabe, umsatz, verkaufsbetrag) Then Exit Sub
Cells(1, 1) = "Die Provision beträgt:"
Cells(1, 2) = berechne_Provision(umsatz, verkaufsbetrag)
Unload Me
End Sub