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 FunctionThanks, I'll check it out later on.