Public Function CDec(ByVal Expression As Variant) As Decimal
Converts the value to a Decimal (equal to Currency).