Как сменить системные параметры: десятичный разделитель и разделитель в дате?

Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LParam As Any) _
   As Long
Const WM_WININICHANGE = &H1A
Const HWND_BROADCAST = &HFFFF

r = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal 'windows')

‘основные узлы реестра 
Public Const HKEY_CLASSES_ROOT = &H80000000 
Public Const HKEY_CURRENT_USER = &H80000001 
Public Const HKEY_LOCAL_MACHINE = &H80000002 
Public Const HKEY_USERS = &H80000003 
Public Const HKEY_CURRENT_CONFIG = &H80000005 
Public Const HKEY_DYN_DATA = &H80000006 
 
Public Const KEY_ALL_ACCESS = &H3F 
 
'типы
'Unicode nul terminated string 
Public Const REG_SZ = (1) 
 
'структурка 
Type SECURITY_ATTRIBUTES 
nLength As Long 
lpSecurityDescriptor As Long 
bInheritHandle As Boolean 
End Type 
 
 
'API-функции 
Public Declare Function RegCloseKey Lib 'advapi32' (ByVal hKey As Long) As Long 
 
Public Declare Function RegCreateKeyEx Lib 'advapi32' Alias 'RegCreateKeyExA' _
(ByVal hKey As Long, _ 
ByVal lpSubKey As String, _ 
ByVal Reserved As Long, _ 
ByVal lpClass As String, _ 
ByVal dwOptions As Long, _ 
ByVal samDesired As Long, _ 
lpSecurityAttributes As SECURITY_ATTRIBUTES, _ 
phkResult As Long, _ 
lpdwDisposition As Long) _ 
As Long 
 
Public Declare Function RegSetValueEx Lib 'advapi32' _ 
Alias 'RegSetValueExA' _ 
(ByVal hKey As Long, _ 
ByVal lpValueName As String, _ 
ByVal Reserved As Long, _ 
ByVal dwType As Long, _ 
ByVal szData As String, _ 
ByVal cbData As Long) _ 
As Long 
 
 
 
 
Function SetRegValue(HKey As Long, ByVal RazdelName As String, ByVal ParametrName As String, ByVal ParametrValue As String) As Boolean
On Error GoTo ErrorRoutineErr
    
Dim SecAttr As SECURITY_ATTRIBUTES  ' security settings of the key
Dim HregKey As Long                 ' receives handle to the newly created or opened registry key
Dim NewOrUsed As Long            ' receives 1 if new key was created or 2 if an existing key was opened
Dim RetVal As Long                     ' return value
 
RetVal = RegCreateKeyEx(HKey, RazdelName, 0, '', 0, KEY_ALL_ACCESS, SecAttr, HregKey, NewOrUsed)
 
RetVal = RegSetValueEx(HregKey, ParametrName, 0, REG_SZ, ParametrValue, CLng(Len(ParametrValue) + 1))
 
RetVal = RegCloseKey(HregKey)
 
Exit Function
 
 
ErrorRoutineErr::
    MsgBox 'Ошибка: <' & Err.number & '> - ' & Err.Description, vbExclamation + vbOKOnly, 'Создание параметра'
    SetRegValue = False
 
End Function
 
'вызов такой:
Dim HKey As Long
Dim RazdelName As String
Dim ParametrName As String
Dim ParametrValue As String
 
HKey = HKEY_CURRENT_USER
RazdelName = 'Control PanelInternational'
ParametrName = 'sDate'
ParametrValue = '/' & vbNullChar
Call SetRegValue(HKey, RazdelName, ParametrName, ParametrValue)