> ' Format a value > ' expN1 Value > ' expC1 Separator > ' expN2 Number of decimals > Public Function GetFormatValue(ByVal tnValue As Double, ByVal tcSeparator As String, _ > ByVal tnDecimal As Integer) As String > Dim lcValue As String = "" > Dim loCultureInfo As CultureInfo = Nothing > > ' Based on the language > Select Case nLanguage > > ' English > Case 1 > loCultureInfo = New CultureInfo("en-US") > > ' French > Case 2 > loCultureInfo = New CultureInfo("fr-CA") > > ' Spanish > Case 3 > loCultureInfo = New CultureInfo("en-US") > > ' Portuguese > Case 4 > loCultureInfo = New CultureInfo("en-US") > > End Select > > loCultureInfo.NumberFormat.NumberDecimalSeparator = "." > loCultureInfo.NumberFormat.NumberGroupSeparator = tcSeparator > loCultureInfo.NumberFormat.NumberDecimalDigits = tnDecimal > > lcValue = tnValue.ToString("N", loCultureInfo) > > Return lcValue > End Function >>