public class Test public Shared Sub Main Dim dNum As Decimal Console.WriteLine("Decimal: " & dNum.MinValue & " to " & dNum.MaxValue) End Sub End class