Public Class Tester Public Shared Sub Main Dim x As Double x = 12345678901234567890D Console.WriteLine(CStr(x)) End SubEnd Class 1.23456789012346E+19