Imports System.Globalization Imports System.Threading Module Example Public Sub Main() Dim value As Double value = Math.Pi Console.WriteLine(value.ToString("r")) Console.WriteLine(value.ToString("r",CultureInfo.CreateSpecificCulture("fr-FR"))) value = 1.623e-21 Console.WriteLine(value.ToString("r")) End Sub End Module