Dim ci As New System.Globalization.CultureInfo _
         (System.Globalization.CultureInfo.InvariantCulture.Name)
 
        With ci.NumberFormat
            .NumberDecimalDigits = 2
            .NumberGroupSeparator = ""
            .NumberGroupSizes = {3}
            .NumberDecimalSeparator = "."
            .NegativeSign = "minus "
            .PositiveSign = "plus "
        End With
 
        Dim dec As Decimal = CDec("-12345,56789")
 
        Dim decstr As String = dec.ToString("N", ci)