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

Format$(0#, ".")

Private Const LOCALE_USER_DEFAULT& = &H400
    Private Const LOCALE_SDECIMAL& = &HE
    Private Const LOCALE_STHOUSAND& = &HF
    Private Declare Function GetLocaleInfo& Lib "kernel32" Alias _
        "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
        ByVal lpLCData As String, ByVal cchData As Long)
Private Function DecimalSeparator() As String
      Dim r As Long, s As String, numChars As Long
    
      numChars = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, 0, 0)
      s = Space(numChars + 1)
      r = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, s, numChars)
      DecimalSeparator = Left$(s, r)
 End Function
    
 
Private Sub Command1_Click()
Debug.Print DecimalSeparator()
End Sub

Debug.Print CDbl("1,5") ' // Локализированный
Debug.Print Val("1.5")  ' // Фиксированный
 
Debug.Print CStr(1.5)   ' // Локализированный
Debug.Print Str(1.5)    ' // Фиксированный

Private Delimiter As String
.......
Private Sub Form_Load()
Delimiter = GetDecimalDelimiter
Debug.Print Delimiter
End Sub
Function GetDecimalDelimiter() As String
  On Error Resume Next
  Dim dbl As Double
  dbl = CDbl("1.25")
  If dbl = 1.25 Then
  GetDecimalDelimiter = "."
  Exit Function
  End If
    dbl = CDbl("1,25")
    If dbl = 1.25 Then GetDecimalDelimiter = ","
 
End Function