Returns the codepage to the given language code.

Syntax:

GetCodePage(LanguageCode As String) As Long
Return: Long
Parameters: LanguageCode Language code for which to get the code page.

Example:
Dim Tool As LanguageTool
Dim LangCode As String
Dim CodePage As Long
    
Set Tool = Application.Tools.LanguageTool
LangCode = "en-us"

If (Tool.IsKnownLanguageCode(LangCode)) Then
    CodePage = Tool.GetCodePage(LangCode)
    MsgBox Tool.GetPrintableLanguageString(LangCode) & ": " _
        & Tool.GetPrintableCodePageString(LangCode)
End If

See also:

Class LanguageTool


Last Updated: 03/17/21