Private Sub Command1_Click()
   Dim LCID As Long
   Dim sNewFormat As String
   
   LCID = GetSystemDefaultLCID()
   
   'European #1
   'FormatSymb = "€"
   'FormatDec = ","
   'FormatThou = "."
   'FormatSDate = "d.MM.yy"
   'FormatLDate = "d MMMM yyyy"
    
   'European #2
   FormatSymb = "KM"
   FormatDec = "."
   FormatThou = ","
   FormatSDate = "dd.MM.yy"
   FormatLDate = "dd.MMMM.yyyy"
    
     'set the new long date format
      Call SetLocaleInfo(LCID, LOCALE_SCURRENCY, FormatSymb)
      Call SetLocaleInfo(LCID, LOCALE_SMONDECIMALSEP, FormatDec)
      Call SetLocaleInfo(LCID, LOCALE_SMONTHOUSANDSEP, FormatThou)
      Call SetLocaleInfo(LCID, LOCALE_SLONGDATE, FormatLDate)
      Call SetLocaleInfo(LCID, LOCALE_SSHORTDATE, FormatSDate)
     
     'send a system notification
      Call PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, ByVal 0&)
      
      Debug.Print format$(10000.56, "Currency")
      Debug.Print format$(Date, "Short Date")
      Debug.Print format$(Date, "Long Date")
End Sub