Type Info:
TranslationStatus As Long
Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile MsgBox "Translation Status: " & ProjFile.TranslationStatus