Hay una forma de hacerlo directo desde código, pero no recuerdo cómo. Mientras podrías hacerlo de forma manual, es decir, que aparezca el cuadro de configuración regional y que el usuario escoga el formato deseado:
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)