public class Test public Shared Sub Main Dim D1, D2 As Decimal D1 = 10 D2 = 5.7 Console.WriteLine(Decimal.Divide(D1, D2)) End SubEnd class 1.7543859649122807017543859649