Double format: r
Module Example Sub Main() Dim value As Double value = Math.Pi Console.WriteLine(value.ToString("r")) End Sub End Module