Returns the secondary language ID.

Syntax:

 
GetSecondaryLanguageID(LanguageID As Long) As Boolean
Return: Boolean
Parameters: LanguageID Language ID for which to get the secondary language ID.
Example: 
Dim Tool As LanguageTool
Dim LangCode As String
Dim LangID As Long
Dim PrimLangID As String
Dim SecLangID As String
    
Set Tool = Application.Tools.LanguageTool
LangCode = "en-us"

If (Tool.IsKnownLanguageCode(LangCode)) Then
    LangID = Tool.GetLanguageID(LangCode)
    PrimLangID = Tool.GetPrimaryLanguageID(LangID)
    SecLangID = Tool.GetSecondaryLanguageID(LangID)
End If

See also:

Class LanguageTool

Last Updated: 03/17/21