Returns the primary language ID.

Syntax:

 
GetPrimaryLanguageID(LanguageID As Long) As Long
Return: Long
Parameters: LanguageID Language ID for which to get the primary 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: 04/26/05