expression.DecimalSeparator
expression Required. An expression that returns an Application object.
Example
This example places "1,234,567.89" in cell A1 then changes the system separators to dashes for the decimals and thousands separators.
Sub ChangeSystemSeparators()
Range("A1").Formula = "1,234,567.89"
MsgBox "The system separators will now change."
' Define separators and apply.
Application.DecimalSeparator = "-"
Application.ThousandsSeparator = "-"
Application.UseSystemSeparators = False
End Sub