Imports System Module ArithmeticOperators2 Sub main() Dim c1 As Decimal c1 = 12.345 c1 = c1 Mod 0 End Sub End Module