Type Info:
LanguageCode As String
Dim Lang As ProjectLanguage Dim LangCode As String Set Lang = Application.ActiveProject.ProjectLanguages.Item(1) LangCode = Lang.LanguageCode