Option Explicit

Sub provision()
' Programm berechnet Provisionen abhängig vom Umsatz
' Dateiname: provision
    Dim umsatz As Double
    Dim verkaufsbetrag As Double
    Dim provisionInProzent As Double
    Dim auszuzahlendeProvision As Double
    
    ' Umsatzgrenzen sind Euro-Betraege
    Const umsatzGrenze As Double = 100000
    ' Provisionen in Prozent
    Const provisionUmsatzGrenze As Double = 10
    
    ' Gib Programmbeschreibung aus
    MsgBox ("Geben Sie Umsatz und Verkaufsbetrag ein!" _
            & Chr$(13) & "Das Programm berechnet die" _
            & " Provision des Vermittlers!")
    ' Lies die Benutzereingaben ein
    umsatz = InputBox("Geben Sie nun den Umsatz des Kunden ein!")
    verkaufsbetrag = InputBox("Geben Sie nun den Verkaufsbetrag ein!")
    
    ' bestimme Provision in Prozent
    MsgBox (provisionUmsatzGrenze)
    If umsatz >= umsatzGrenze Then
        provisionInProzent = provisionUmsatzGrenze
        Else
        provisionInProzent = 0
    End If
    
    ' Berechne auszuzahlenden Betrag
    auszuzahlendeProvision = (verkaufsbetrag * provisionInProzent) / 100
    
    ' Gib das Ergebnis aus
    MsgBox ("Die Provision für dieses Geschäft ist: " _
            & auszuzahlendeProvision & " DM")
End Sub