Rechnen

Sub Makro4()
Dim r As String
Dim i As Integer
Dim j As Integer
Const Divisor = "100"
Const Faktor = "20"
r = InputBox("Bitte Katalog Preis eingeben", "Rabatt")
If r = "" Then Exit 

Sub 'Abbruch belegen
MsgBox r & ("€")
i = r / Divisor
MsgBox i & ("€")
i = i * Faktor
MsgBox i & ("€")
j = r - i
MsgBox j & ("€")
End Sub



Klappt leider nicht.

Wenn ich 1000 eingeben geht es, wenn ich 34,50 ein gebe dann nicht.

Hat jemand eine Idee?

MfG

Stephan