Option Explicit
Option Private Module
'====================================================================================================
Sub Transform()
Dim x, vD, vC, sD$, sC$, d#, t!, n&
Const nMax& = 10000000  ' 10 mln

sD = "0.5": vD = sD ' D = Dot
sC = "0,5": vC = sC ' C = Comma

' проверяем CDbl, двойное отрицание и присвоение числовой переменной на скорость (только "0,5", потому что "0.5" вызовет ошибку)
' CDbl
t = Timer
    For n = 1 To nMax
        x = CDbl(sC)
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = CDbl(sC)"

t = Timer
    For n = 1 To nMax
        x = CDbl(vC)
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = CDbl(vC)"


' --
t = Timer
    For n = 1 To nMax
        x = --sC
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = --sC"

t = Timer
    For n = 1 To nMax
        x = --vC
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = --vC"


' d#
t = Timer
    For n = 1 To nMax
        d# = sC
    Next n
Debug.Print Timer - t, x, TypeName(x), "d# = sC"

t = Timer
    For n = 1 To nMax
        d# = vC
    Next n
Debug.Print Timer - t, d, TypeName(x), "d# = vC"


' проверяем Val на скорость ("0.5" преобразует корректно в 0.5, а "0,5" преобразует в 0, т.к. запятая не является числовым символом)
t = Timer
    For n = 1 To nMax
        x = Val(sD)
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = Val(sD)"

t = Timer
    For n = 1 To nMax
        x = Val(vD)
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = Val(vD)"


t = Timer
    For n = 1 To nMax
        x = Val(sC)
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = Val(sC)"

t = Timer
    For n = 1 To nMax
        x = Val(vC)
    Next n
Debug.Print Timer - t, x, TypeName(x), "x = Val(vC)"
End Sub
'====================================================================================================

Option Explicit
Option Private Module
'====================================================================================================
Public BV As New BedvitCOM.VBA  ' https://bedvit.ru/xll/
'====================================================================================================
Sub Transform()
Dim x, sD$, sC$, t!, n&
Const nMax& = 1000000 ' 1 mln

sD = "0.5"  ' D = Dot
sC = "0,5"  ' C = Comma

t = Timer
    For n = 1 To nMax
        x = sD: PRDX_ToNumeric x
    Next n
Debug.Print "sD", Timer - t, TypeName(x), x

t = Timer
    For n = 1 To nMax
        x = sC: PRDX_ToNumeric x
    Next n
Debug.Print "sC", Timer - t, TypeName(x), x
End Sub
'====================================================================================================
'====================================================================================================
' Функция пытается преобразовать аргумент в число и возвращает итог попытки
Function PRDX_ToNumeric(v, Optional AllowExp As Boolean, Optional MsgTrue As Boolean, Optional MsgFalse As Boolean) As Boolean
Dim x$, v2$, tmp, l&, i&, f As Boolean
Static DScur$, DSoth$, fStatic As Boolean

If Not fStatic Then
    fStatic = True: DScur = Application.International(xlDecimalSeparator)
    If DScur = "," Then DSoth = "." Else DSoth = ","
End If

If v = 0 Then GoTo yes
l = Len(v): If l = 0 Then v = 0: GoTo yes                                           ' вычисляем длину переменной. Если нолевая, то преобразуем в 0 и выходим
If l > 20 Then GoTo no                                                              ' если длина переменной больше 20, то выходим
If AllowExp Then x = v Else x = LCase$(v)
On Error Resume Next: tmp = --x: On Error GoTo 0: If tmp <> Empty Then GoTo nxExp   ' пробуем преобразовать и переходим к проверке экспоненциального вида, если получилось

v2 = BV.Replace(x, DSoth, DScur)                                                    ' заменяем "другой" десятичный разделитель на текущий
If v2 <> x Then                                                                     ' если замена была произведена …
    x = v2
    On Error Resume Next: tmp = --x: On Error GoTo 0: If tmp <> Empty Then GoTo nxExp   ' пробуем преобразовать
End If

v2 = BV.FilterUnicodeChar(x, , "  ")                                               ' удаляем неразрывные и обычные пробелы
If v2 <> x Then                                                                    ' если замена была произведена …
    x = v2
    On Error Resume Next: tmp = --x: On Error GoTo 0: If tmp <> Empty Then GoTo nxExp   ' пробуем преобразовать
End If
GoTo no

nxExp:  ' проверка экспоненцеального вида
If Not AllowExp Then
    f = (BV.InStr(x, "e") <> 0)
    If Not f Then f = (BV.InStr(x, "d") <> 0)

    If f Then
        If MsgFalse Then MsgBox "The Value" & vbLf & vbLf & v & vbLf & vbLf & "looks like the EXPONENTIAL!", vbExclamation, "ToNumeric"
        Exit Function
    End If
End If


yes: If MsgTrue Then MsgBox "The Value" & vbLf & vbLf & v & vbLf & vbLf & "now is Numeric!", vbExclamation, "ToNumeric"
PRDX_ToNumeric = True: v = tmp: Exit Function

no: If MsgFalse Then MsgBox "The Value" & vbLf & vbLf & v & vbLf & vbLf & "CAN'T be transform to Number!", vbExclamation, "ToNumeric"
End Function
'====================================================================================================
'====================================================================================================