判斷是中文，英文，法文..
'=============================================================================================
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Function GetOSLCID() As Integer
Dim sysLCID As Long
sysLCID = GetSystemDefaultLCID
'&H409(us-英文)&H809(gb-英文) &HC09(au-英文) &H1009(ca-英文)
'&H004(zh-中文)&H404(tw-Big5)&H804(cn-GBK/GB)&HC04(hk-Big5) &H1004(sg-GBK)
'&H804=2052 &H404=1028 &H409=1033 &H809=2057
If sysLCID = &H804 Or sysLCID = &H4 Or sysLCID = &H1004 Then
GetOSLCID = 1 '中文簡體
ElseIf sysLCID = &H404 Or sysLCID = &HC04 Then
GetOSLCID = 2 '中文繁體
ElseIf sysLCID Mod 16 = 9 Then
GetOSLCID = 0 '(英文)
Else: GetOSLCID = 0
End If
End Function
