Option Strict On Public Module ChangeCulture Public Sub Main() Dim amount As Decimal = 12.23d My.Application.ChangeCulture("fr-fr") Console.WriteLine(FormatCurrency(amount)) End Sub End Module