Imports System.GlobalizationModule Example Sub Main() Dim number As Double = .2468013 Console.WriteLine(number.ToString("P",CultureInfo.CreateSpecificCulture("hr-HR"))) End SubEnd Module