Option Strict OnPublic Module ChangeCulture Public Sub Main() Dim amount As Decimal = 12.23d My.Application.ChangeCulture("fr-fr") Console.WriteLine(FormatCurrency(amount)) End SubEnd Module 12,23 €