Evaluate mit Dezimalzahlen Laufzeitfehler

Sub NettoEKPreisBerechnen()
If Me.LSListenpreis = "" Then  
Exit Sub
Else
Listenpreis = Me.LSListenpreis
NettoEKPreis = Me.LSNettopreis
End If

RZ1_Op = Me.LSRabattZuschlag1Op 'Operator +/-  
RZ2_Op = Me.LSRabattZuschlag2Op 'Operator +/-  
RZ3_Op = Me.LSRabattZuschlag3Op 'Operator +/-  

RZ1 = Me.LSRabattZuschlag1 'Wert  
RZ2 = Me.LSRabattZuschlag2 'Wert  
RZ3 = Me.LSRabattZuschlag3 'Wert  

RZ1_Pa = Me.LSRabattZuschlag1Par 'Parameter % oder €  
RZ2_Pa = Me.LSRabattZuschlag2Par 'Parameter % oder €  
RZ3_Pa = Me.LSRabattZuschlag3Par 'Parameter % oder €  

'Rabatt oder Zuschlag 1 berechnen  
If RZ1_Pa = "%" Then  
RZ1_Wert = Listenpreis * (RZ1 / 100)
Else
RZ1_Wert = RZ1 'nur den €-Wert übernehmen, da dieser vom Listenpreis ja nur abgezogen werden muss.  
End If

'Rabatt oder Zuschlag 2 berechnen  
If RZ2_Pa = "%" Then  
RZ2_Wert = Listenpreis * (RZ2 / 100)
Else
RZ2_Wert = RZ2 'nur den €-Wert übernehmen, da dieser vom Listenpreis ja nur abgezogen werden muss.  
End If

'Rabatt oder Zuschlag 3 berechnen  
If RZ3_Pa = "%" Then  
RZ3_Wert = Listenpreis * (RZ3 / 100)
Else
RZ3_Wert = RZ3 'nur den €-Wert übernehmen, da dieser vom Listenpreis ja nur abgezogen werden muss.  
End If

'Vorzeichen ändern, wenn der Operator "-" ist  
'ist notwendig, um die Summe der 3 oben berechneten Werte zu ermitteln  
If RZ1_Op = "-" Then  
Me.LSRabattZuschlag1Wert = RZ1_Wert * -1
Else
Me.LSRabattZuschlag1Wert = RZ1_Wert
End If

If RZ2_Op = "-" Then  
Me.LSRabattZuschlag2Wert = RZ2_Wert * -1
Else
Me.LSRabattZuschlag2Wert = RZ2_Wert
End If

If RZ3_Op = "-" Then  
Me.LSRabattZuschlag3Wert = RZ3_Wert * -1
Else
Me.LSRabattZuschlag3Wert = RZ3_Wert
End If

'Berechnen der Summe der ermittelten Beträge  
Me.LSRabattZuschlagWertSum = Application.Evaluate(0 & RZ1_Op & RZ1_Wert & RZ2_Op & RZ2_Wert & RZ3_Op & RZ3_Wert)

'Netto Einkaufspreis ermitteln  
NettoEKPreis = Application.Evaluate(Listenpreis & LSRabattZuschlagWertSum)
Me.LSNettopreis = NettoEKPreis

End Sub