Option Explicit

Const LOCALE_SCURRENCY = &H14
Const LOCALE_SINTLSYMBOL = &H15
Const LOCALE_SMONDECIMALSEP = &H16
Const LOCALE_SMONTHOUSANDSEP = &H17
Const LOCALE_SMONGROUPING = &H18
Const LOCALE_ICURRDIGITS = &H19
Const LOCALE_USER_DEFAULT = &H400

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 Sub Form_Load()
  Dim Buffer As String * 100
  Dim RetVal As Long

  RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCURRENCY, _
     Buffer, 99)
  Label2(0).Caption = ConvNull(Buffer)

  RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SINTLSYMBOL, _
     Buffer, 99)
  Label2(1).Caption = ConvNull(Buffer)

  RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, _
     LOCALE_SMONDECIMALSEP, Buffer, 99)
  Label2(2).Caption = ConvNull(Buffer)

  RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICURRDIGITS, _
     Buffer, 99)
  Label2(3).Caption = ConvNull(Buffer)

  RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, _
     LOCALE_SMONTHOUSANDSEP, Buffer, 99)
  Label2(4).Caption = ConvNull(Buffer)

  RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, _
     LOCALE_SMONGROUPING, Buffer, 99)
  Label2(5).Caption = ConvNull(Buffer)
End Sub

Private Function ConvNull(ByVal sString As String)
  Dim Pos As Long
  Pos = InStr(sString, Chr$(0))
  ConvNull = IIf(Pos > 0, Left$(sString, Pos - 1), "")
End Function