Private Const LOCALE_SLIST = &HC ' list item separator
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
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Sub Main()
Dim locale_id As Long
Dim Sep as String

locale_id = GetUserDefaultLCID()
Sep=LocaleInfo(locale_id, LOCALE_SLIST)
MsgBox Sep
end sub

Private Function LocaleInfo(ByVal locale As Long, ByVal lc_type As Long) As String
Dim length As Long
Dim buf As String * 1024

length = GetLocaleInfo(locale, lc_type, buf, Len(buf))
LocaleInfo = Left$(buf, length - 1)

End Function