Module Module1 Sub Main() Dim A As Single = 0.123456789012345 Dim B As Double = 0.123456789012345 Console.WriteLine("Single: " & A) Console.WriteLine("Double: " & B) End Sub End Module
Single: 0.1234568 Double: 0.123456789012345