Option
Explicit
Private
Sub
CommandButton2Ende_Click()
End
End
Sub
Private
Sub
CommandButton1Berechnen_Click()
Dim
ek, vk, aufschlag
As
Double
ek = Val(TextBox1.Text)
aufschlag = 0
If
OptionButton1Prozent22.Value =
True
Then
aufchlag = 1.22
ElseIf
OptionButton2prozent34.Value =
True
Then
aufschlag = 1.34
ElseIf
OptionButton3Prozent43.Value =
True
Then
aufschlag = 1.43
Else
antwort = MsgBox(
"Sie müssen einen Aufschlag auswählen"
, 0 + vbExclamation,
"Achtung"
)
End
If
If
aufschlag > 0
Then
vk = ek * aufschlag
Label1Ergebnis.Caption = Format(vk,
"#,##0,00 €"
)
End
If
End
Sub