const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
oReg.SetStringValue HKEY_CURRENT_USER,"Control Panel\International", "sShortDate", "dd/MM/YYYY"