?val("0,5")
     0
     ?val("0.5")
     0,5
           
    val(replace("0,5",",","."))
           
    Select Case KeyAscii
      Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyDelete, vbKeyLeft, _
      vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab, vbDecimal
      Case Else
        KeyAscii = 0
        Beep
      End Select
           
    'Locale support
    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
    Const LOCALE_ICOUNTRY = &H5         '  country code
    Const LOCALE_SENGCOUNTRY = &H1002      '  English name of country
    Const LOCALE_USER_DEFAULT = &H400
           
    If getLocale <= 1 Then  'US
      'use commas
    else 'UK
      'use period
    End If
           
    ? val("2.500,50")
     2,5
    ? cdbl("2.500,50")
     2500,5
           
    ? val("2,500.50")
     2    
    ? cdbl("2,500.50")
     2,5005