Sub provision2()
' Programm berechnet Provisionen abhängig
' vom Umsatz
' Dateiname: provision2
    Dim umsatz As Double
    Dim verkaufsbetrag As Double
    Dim provisionInProzent As Double
    Dim auszuzahlendeProvision As Double
    
    ' Umsatzgrenzen sind DM-Betraege
    Const umsatzGrenze1 As Double = 100000
    Const umsatzGrenze2 As Double = 500000
    Const umsatzGrenze3 As Double = 1000000
    
    ' Provisionen in Prozent
    Const provisionUmsatzGrenze1 As Double = 5
    Const provisionUmsatzGrenze2 As Double = 10
    Const provisionUmsatzGrenze3 As Double = 20
    
    ' 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!")
    
    ' ueberpruefe Benutzereingaben
    If verkaufsbetrag > umsatz Then
            MsgBox ("Umsatz muß größer gleich Verkaufsbetrag sein!")
            Exit Sub
    End If
    
    ' bestimme Provision
    If umsatz >= umsatzGrenze3 Then
            provisionInProzent = provisionUmsatzGrenze3
        ElseIf umsatz >= umsatzGrenze2 Then
            provisionInProzent = provisionUmsatzGrenze2
        ElseIf umsatz >= umsatzGrenze1 Then
            provisionInProzent = provisionUmsatzGrenze1
        Else
            provision = 0
    End If
    
    ' Berechne dir Provision
    auszuzahlendeProvision = (verkaufsbetrag * provisionInProzent) / 100
    
    ' Gib das Ergebnis aus
    MsgBox ("Die Provision für dieses Geschäft ist: " _
            & auszuzahlendeProvision & " DM")
End Sub