'API - Прочитать региональные настройки (Используется для получения разделителя целой и дробной частей)
Private Const LOCALE_SDECIMAL = &HE
Private Declare Function GetLocaleInfo Lib "kernel32" _
    Alias "GetLocaleInfoA" (ByVal Locale As Long, _
    ByVal LCType As Long, ByVal lpLCData As String, _
    ByVal cchData As Long) As Long
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

Public Function GetDecimalPoint() As String  'Запрашивает у Windows системную десятичную точку
    On Error GoTo ErrorHandler
    Dim sBuffer As String
    Dim lNullPos As Long
    
    sBuffer = String( 100 , " ")
    If GetLocaleInfo(GetUserDefaultLCID(), LOCALE_SDECIMAL, sBuffer,  99 ) Then
        lNullPos = InStr(sBuffer, vbNullChar)
        If lNullPos Then
            GetDecimalPoint = Left$(sBuffer, lNullPos -  1 )
            Exit Function
        End If
    End If
ErrorHandler:
    GetDecimalPoint = "."
End Function