Trying to determine the locale settings.......

I have found API's that I thought would do the job, but they are not returning the information I expected. Here is a code sample of what I have:

lLCID = GetSystemDefaultLCID
sString = GetUserSetting(lLCID, LOCALE_SLANGUAGE)
********************************************************
Private Function GetUserSetting(ByVal LCID As String, ByVal lConst As Long) As String
Dim sReturn As String
Dim lAPI    As String

   On Error GoTo GetUserSetting_Error
   
   'returns the length of the string
   lAPI = GetLocaleInfo(LCID, lConst, sReturn, Len(sReturn))
   
   If lAPI > 0 Then
     'pad the buffer with spaces
      sReturn = Space$(lAPI)
   
     'and call again passing the buffer
      lAPI = GetLocaleInfo(LCID, lConst, sReturn, Len(sReturn))
     
     'if successful (r > 0)
      If lAPI > 0 Then
        'r holds the size of the string
        'including the terminating null
         sReturn = Left$(sReturn, lAPI - 1)
      End If
   End If
********************************************************

I have tried various constants in place of LOCALE_SLANGUAGE, but all that is being returned is the current language setting of the machine.

The value I need to retrieve is the one displayed in the Regional settings dialogue(under the general tab), a Current Locale is displayed (first combobox), this can be a different value than the current language.
This value is tells me the template in place for all formats on the machine(ie:date currency, time .....).