Could this work ?:
Set Shell = CreateObject("Wscript.shell")
Shell.RegWrite "HKCU\Control Panel\International\sDecimal", ".", "REG_SZ"
Shell.RegWrite "HKCU\Control Panel\International\sList", ";", "REG_SZ"
The above should set the decimal point symbol to ".", and the list separator symbol to...