Option Explicit

Sub provision4()
' Programm berechnet Provisionen abhängig
' vom Umsatz
' Dateiname: provision4

Dim umsatz As Double
Dim verkaufsbetrag As Double
Dim provisionInProzent As Double
Dim auszuzahlendeProvision As Double
Dim eingabe As String

' 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 und ueberpruefe die Benutzereingaben
eingabe = InputBox("Geben Sie nun den Umsatz des Kunden ein!")
If Not IsNumeric(eingabe) Then
    MsgBox ("Umsatz muß eine Zahl sein!")
    Exit Sub
End If
umsatz = CDbl(eingabe)
eingabe = InputBox("Geben Sie nun den Verkaufsbetrag ein!")
If Not IsNumeric(eingabe) Then
    MsgBox ("Verkaufsbetrag muß eine Zahl sein!")
    Exit Sub
End If

verkaufsbetrag = CDbl(eingabe)
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
        provisionInProzent = 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