'需引用mso.dll      micrsoft office 10.0 object library

Function ChkLanguage()
    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
        Case 1028: lgg = "(Traditional Chinese)"
        Case 2052: lgg = "(Simplified Chinese)"
        Case Else: lgg = "NO Chinese! This Function Need Chinese For Display!"
    End Select
   ChkLanguage = Mid(lgg, 2, 1)
End Function

public sub chklang()
   If ChkLanguage() = "T" Then
msgbox "繁体"
   elseif ChkLanguage() = "s" Then
msgbox "简体"
   else:
msgbox Application.LanguageSettings.LanguageID(msoLanguageIDUI)
   end if
end sub