>Thinking about it, since all you are doing is switching the currency sign to a trailing position for the French version this would be even simpler:

   Public Function GetFormatValueDollar(ByVal tnValue As Double, ByVal nLanguage As Integer) As String
>        Dim info As New CultureInfo("en-US")
>        Select Case nLanguage
>            Case 1
>             Case Else
>                info.NumberFormat.CurrencyPositivePattern = 1
>        End Select
>        Return tnValue.ToString("c", info)
>    End Function

Thanks, I'll check it out later on.