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