Public FormDecimalSeparator As String

Public Sub GetFormSeparator()
    Form_Credits.o_Form_Separator.ControlSource = "A1"
    If InStr(Form_Credits.o_Form_Separator.Value, ".") <>  0  Then
        FormDecimalSeparator = "."
    ElseIf InStr(Form_Credits.o_Form_Separator.Value, ",") <>  0  Then
        FormDecimalSeparator = ","
    Else
        FormDecimalSeparator = ""
    End If
    Form_Credits.o_Form_Separator.ControlSource = ""
End Sub

Public Function SeparatorChange(p_Value As String) As String
    Dim v_DecimalSeparator As String
    v_DecimalSeparator = FormDecimalSeparator
    If p_Value <> "" Then
        If v_DecimalSeparator = "." Then
            SeparatorChange = Replace(p_Value, ",", ".")
        ElseIf v_DecimalSeparator = "," Then
            SeparatorChange = Replace(p_Value, ".", ",")
        Else
            SeparatorChange = Replace(p_Value, v_DecimalSeparator, "")
        End If
    End If
End Function