Autoreplace comma with dot VBA

[mysticmario]

I have this block of code that suppose to change texbox value for example, from 1,5 into 1.5 but for some reason instead of getting 1.5 i get this: 45047,0

Private Sub HoursCount_AfterUpdate()
    Dim inputText As String
    inputText = Me.HoursCount.Text
    inputText = Replace(inputText, ",", ".")
    ' Format the number with one decimal place
    inputText = Format(inputText, "0.0")
    ' Update the text box with the formatted number
    Me.HoursCount.Text = inputText
End Sub

I thought it is fairly straight forward code, but apparently it's not.
Maybe someone can advise how to fix this or do it differently?

 

[mysticmario]

I also tried using this:

Private Sub HoursCount__Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputNumber As String
    Dim formattedNumber As String
   
    ' Get the text that was just entered into the Textbox
    inputNumber = Me.HoursCount.Value
   
    ' Check if the input is a valid number
    If IsNumeric(inputNumber) Then
        ' If it is, format number into 0.0
        formattedNumber = Format(CStr(inputNumber), "0.0")
        ' Update the Textbox with the formatted date
        Me.HoursCount.Value = formattedNumber
    Else
        MsgBox "Error"
        Cancel = True
    End If
End Sub

But that didn't work either

 

[mysticmario]

Here's the solution I came up with for future viewers:
The previous code was working but the way excel understood was always 1,5 due to regional decimal separator.

You had to force comma replacement with dot.

Private Sub HoursCount_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputNumber As Double
    Dim formattedNumber As String
   
' Get the text that was just entered into the Textbox
inputNumber = CDbl(Me.HoursCount.Value)

' Check if the input is a valid number
If IsNumeric(inputNumber) Then
    ' If it is, format the number to 1 decimal place
    formattedNumber = Format(inputNumber, "0.0")
    formattedNumber = Replace(inputNumber, ",", ".")
    ' Update the Textbox with the formatted number
    Me.HoursCount.Value = formattedNumber
Else
    MsgBox "Error: Input must be a number."
    Cancel = True
End If

End Sub