Private Function RappenRundung(ByVal Wert As Decimal) As Decimal
            Wert = (Int((Wert * 100) + 0.5)) / 100
            Wert = Wert * 10
            If Int(Wert) <> Wert Then
                Select Case Right(Wert, 1)
                    Case 5
                        Wert = Wert
                    Case 1, 6
                        Wert = Wert - 0.1
                    Case 2, 7
                        Wert = Wert - 0.2
                    Case 3, 8
                        Wert = Wert + 0.2
                    Case 4, 9
                        Wert = Wert + 0.1
                End Select
            End If
            RappenRundung = Wert / 10
    End Function