Как получить системный разделитель целой и дробной части числа?

'Функция для вырезания числа из строки...
Public Function ЧислоИЗСтр(Ячейка As Range, Optional Начальная_позиция As Integer = 1, _
                            Optional Конечная_позиция As Integer = 1000) As Double
Dim i As Integer
Dim exitStr As String
Dim str As String
Dim sep As String
Dim ch As String
Dim flag As Boolean
If Len(Ячейка.value) = 0 Then ЧислоИЗСтр = 0: Exit Function
flag = True
exitStr = ""
sep = Application.International(xlDecimalSeparator)
str = Trim(Ячейка.value)
For i = Начальная_позиция To Конечная_позиция
    ch = Mid(str, i, 1)
    If Len(exitStr) = 0 And Not IsDigit(ch) Then
        Do While Not IsDigit(ch)
            i = i + 1
            ch = Mid(str, i, 1)
        Loop
    End If
    If Len(exitStr) > 0 And _
        Not IsDigit(ch) And Not InStr(1, ",.", ch) > 0 And _
            Not (ch = " " Or IsDigit(Mid(str, i + 1, 1))) Then
        ЧислоИЗСтр = CDbl(exitStr): Exit Function
    End If
    Select Case Asc(ch)
        Case Asc("0") To Asc("9")
            exitStr = exitStr & ch
        Case Asc(","), Asc(".")
            If IsDigit(Mid(str, i + 1, 1)) And Not (i + 1 > Конечная_позиция) Then
                If flag Then exitStr = exitStr & sep: flag = False
            End If
        Case Else
            exitStr = exitStr + ""
    End Select
Next i
If Not (Len(exitStr) = 0 Or Trim(exitStr) = sep) Then
    ЧислоИЗСтр = CDbl(exitStr)
Else
    ЧислоИЗСтр = 0
End If
End Function

'Функция для проверки символа (число/не число)
'Если символ - число, возвращает True, иначе возвращает False
Private Function IsDigit(something As Variant) As Boolean
    IsDigit = False
    If Asc(something) >= Asc("0") And Asc(something) <= Asc("9") Then IsDigit = True
End Function