Option Explicit
Private Const REG_SZ =  1  '' Unicode nul terminated string

Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_READ = &H20000
Private Const STANDARD_RIGHTS_WRITE = &H20000
Private Const STANDARD_RIGHTS_EXECUTE = &H20000
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const KEY_EXECUTE = (KEY_READ)
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Const ERROR_SUCCESS =  0 &

Const REG_BINARY =  3  ' Free form binary
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private m_sSeparator As Variant
Private m_DateSeparator As String
Private m_DecimalSeparator As String
Private m_LongDate As String
Private m_ShortDate As String
Private m_ThousandDelimiter As String
Private Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String

    '<CSCM>
    '--------------------------------------------------------------------------------
    ' Project    :       WebSurveyUI
    ' Procedure  :       RegQueryStringValue
    ' Description:       [type_description_here]
    ' Created by :        Maksym Kulykovskyy
    ' Machine    :       MKULYKOVSKYY
    ' Date-Time  :       2002-11-14-16:16:54
    '
    ' Parameters :       hKey
    '                    strValueName
    '--------------------------------------------------------------------------------
    '</CSCM>

    Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long

    '    'retrieve nformation about the key

    lResult = RegQueryValueEx(hKey, strValueName,  0 , lValueType, ByVal  0 , lDataBufSize)

    If lResult =  0  Then

        If lValueType = REG_SZ Then

            'Create a buffer
            strBuf = String$(lDataBufSize, Chr$(0))
            'retrieve the key's content
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)

            If lResult = 0 Then

                'Remove the unnecessary chr$( 0 )'s
                RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)

            End If

        ElseIf lValueType = REG_BINARY Then

            Dim strData As Integer
            'retrieve the key's value
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)

            If lResult = 0 Then

                RegQueryStringValue = strData

            End If

        End If

    End If

End Function

Private Function OpenKey(hKey As Long, strpath As String) As Long

    '<CSCM>
    '--------------------------------------------------------------------------------
    ' Project    :       Project1
    ' Procedure  :       OpenKey
    ' Description:       [type_description_here]
    ' Created by :        Maksym Kulykovskyy
    ' Machine    :       MKULYKOVSKYY
    ' Date-Time  :       2002-11-14-16:16:54
    '
    ' Parameters :       hKey
    '                    strpath
    '--------------------------------------------------------------------------------
    '</CSCM>

    Dim ret&
    Dim arr() As String
    Dim I%
    Dim Result&
    
    arr = Split(strpath,  "\" )

    'Open the key
    Result = RegOpenKeyEx(hKey, arr(0), 0, KEY_ALL_ACCESS, ret)

    If Result = ERROR_SUCCESS Then

        For I = 1 To UBound(arr)

            '
            Result = RegOpenKeyEx(ret, arr(I),  0 , KEY_ALL_ACCESS, ret)

            If Result <> ERROR_SUCCESS Then

                OpenKey = - 1 
                Exit Function

            End If

        Next

    Else

        OpenKey = - 1 
        Exit Function

    End If

    OpenKey = ret

End Function

Public Property Get ThousandDelimiter() As String
    ThousandDelimiter = m_ThousandDelimiter
End Property

Public Property Get ShortDate() As String
    ShortDate = m_ShortDate
End Property

Public Property Get LongDate() As String
    LongDate = m_LongDate
End Property

Public Property Get DecimalSeparator() As String
    DecimalSeparator = m_DecimalSeparator
End Property

Public Property Get DateSeparator() As String
    DateSeparator = m_DateSeparator
End Property

Public Property Get sListSeparator() As String
    sListSeparator = m_sSeparator
End Property


Private Sub Class_Initialize()
Dim ret As Long

ret = OpenKey(HKEY_CURRENT_USER,  "Control Panel\International" )
 
    m_sSeparator = RegQueryStringValue(ret,  "sList" )
    m_DateSeparator = RegQueryStringValue(ret,  "sDate" )
    m_DecimalSeparator = RegQueryStringValue(ret,  "sDecimal" )
    m_LongDate = RegQueryStringValue(ret,  "sLongDate" )
    m_ShortDate = RegQueryStringValue(ret,  "sShortDate" )
    m_ThousandDelimiter = RegQueryStringValue(ret,  "sThousand" )

RegCloseKey ret
End Sub