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 Const LOCALE_SDECIMAL = &HE
Private Const LOCALE_USER_DEFAULT = &H400

Public Property Get DecimalSeparator() As String
    Dim s As String, i As Long
    s = String$(5, 0)
    s = Left$(s, GetLocaleInfo(LOCALE_USER_DEFAULT, _
        LOCALE_SDECIMAL, s, 2))
    i = InStr(s, vbNullChar)
    If i Then s = Left$(s, i - 1)
    DecimalSeparator = s
End Property