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