Dim ret As Long
ret = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f")

if you just want to change it