Try.

Code:
Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus