Imports System Imports Microsoft.VisualBasic Module DecimalRoundDemo Sub ShowDecimalRound( Argument As Decimal, Digits As Integer ) Dim rounded As Decimal = Decimal.Round( Argument, Digits ) Console.WriteLine( rounded ) End Sub Sub Main( ) ShowDecimalRound( 1.45D, 1 ) ShowDecimalRound( 1.55D, 1 ) End Sub End Module