Public Structure Cultures > Public Const English As String = "en-US" > Public Const French As String = "fr-CA" > Public Const Spanish As String = "en-US" > Public Const Portuguese As String = "en-US" >End Structureset nLanguage to Cultures.French (or whatever) then
Public Shared Function GetFormatValue(tnValue As Double, tcSeperator As String, tnDecimal As Integer) As String > Dim nfi As NumberFormatInfo = New CultureInfo(nLanguage).NumberFormat > nfi.NumberDecimalSeparator = "." > nfi.NumberGroupSeparator = tcSeperator > nfi.NumberDecimalDigits = tnDecimal > > Select Case nLanguage > Case Cultures.French > If True Then > nfi.CurrencyPositivePattern = 1 > Exit Select > End If > End Select > > Return tnValue.ToString("C", nfi) >End FunctionThanks