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