بررسی تنظیمات region ویندوز

گاهی وقتها برای اعمال عملیات خاص برای برخی کارکرد ها مثل علامت اعداد اعشاری و یکسان سازی آن در اشیا و محیط برنامه نویسی میبایست تنظیمات خاصی را در تنظیمات region ویندوز اعمال نماییم که در صورت عدم اعمال این تنظیمات ممکن است اعداد اعشاری بعنوان عدد صحیح ذخیره شود و یا مقدار دهی اعداد اعشاری با خطا مواجه شود لذا لازم است بعد از تغییر ویندوز و یا جابجایی نرم افزار حتما تنظیمات قبلی اعمال شود.
در اینجا فقط به بررسی صحیح بودن تنظیمات میپردازیم.

If Mid(10 / 3, 2, 1) = "." Then
Else
MsgBox "تنظيمات ويندوز شما صحيح نيست لطفا تنظيمات ويندوز خودر را تغيير دهيد . پس از اين پيغام تنظيمات ويندوز براي شما باز ميشود لطفا آنرا مطابق عکس راهنما تنظيم نماييد"
Shell "explorer.exe " & "c:\windows\system32\intl.cpl"
End
End If