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