Returns the language ID to the given language code.

Syntax:

 
GetLanguageID(LanguageCode As String) As Long
Return: Long
Parameters: LanguageCode Language code for which to get the 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