Const LOCALE_SDECIMAL = &HE&
Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
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
    
   
Public Function GetDecimalSep() As String
    Dim strVal As String
    
    strVal = Space( 16 )
    GetLocaleInfo GetUserDefaultLCID(), LOCALE_SDECIMAL, strVal,  16 
    GetDecimalSep = Left(strVal, InStr( 1 , strVal, Chr( 0 )) -  1 )
End Function