VBA Textbox CDbl not working with Dots. 2.5 = 25

[Weeble]

Dim emptyRow As Long

Worksheets("Tider").Activate


'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1


'Transfer information
Cells(emptyRow, 1).Value = CDbl(DateText.Value)
Cells(emptyRow, 6).Value = CDbl(UserText.Value)
Cells(emptyRow, 7).Value = CDbl(P10Text.Value)

If a user Enter 2.5 instead of 2,5 ( dot instead of comma ) When I transfer the data to my sheet 2.5 becomes 25.
Is there any way to change my current code in an easy way so that VBA converts it to a comma if user has input a dot?
I searched for many different solutions. But none that I could implement easy into my code.

 

[pijaku]

Hello,
2 ways :

1st : using Val instead of CDbl
2nd : using a personal function and Replace()

Option Explicit

Sub Demo()
Dim n As String
    n = "2.5"
    Debug.Print Val(n)  'first way
    n = Replace(n, CommaInsteadOfPoint, Application.DecimalSeparator) 'second way
    Debug.Print CDbl(n)
End Sub


Private Function CommaInsteadOfPoint() As String
    CommaInsteadOfPoint = IIf(Application.DecimalSeparator = ".", ",", ".")
End Function

 

[Weeble]

Thank you for the tips!
Before I got try them out I used this

Cells(emptyRow, 7).Value = CDbl(Replace(P10Text.Value, ".", ","))

Could this have any negative effect on the code?
Or does it work?

 

[pijaku]

Cells(emptyRow, 7).Value = CDbl(Replace(P10Text.Value, ".", ","))

Could this have any negative effect on the code?

No problem

Or does it work?

yes it work.

It's as you want.