ToString("N1",CultureInfo.CreateSpecificCulture("sv-SE"))
Imports System.Globalization Module Example Sub Main() Dim dblValue As Double = -12445.6789 Console.WriteLine(dblValue.ToString("N1",CultureInfo.CreateSpecificCulture("sv-SE"))) End Sub End Module