Select Case GetLocale() Case 2052:MsgBox "Simplified Chinese" Case 1028: MsgBox "Traditional Chinese" Case 1031: MsgBox "German" Case 2057: MsgBox "British English" Case 1033: MsgBox "English" Case 3082: MsgBox "Spanish" Case 1036: MsgBox "French" Case 1040: MsgBox "Italian" Case 1041: MsgBox "Japanese" Case 1042: MsgBox "Korean" Case 0: MsgBox "Neutral" Case 1043: MsgBox "Dutch" Case 1053: MsgBox "Swedish" Case 1054: MsgBox "Thai" Case 3076: MsgBox "Chinese (Hong Kong SAR, PRC)" Case 5124: MsgBox "Chinese (Macau SAR)" Case 4100: MsgBox "Chinese (Singapore)" Case Else MsgBox "Unknown,more details on www.microsoft.com" End Select