MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question
Hello from Dubai 
How to say if program unicode language is English (No matter the country) then....
Thanks in advance
Hi,
Below is a smart solution
Sub GetCodepage()
' Getting the System's CodePage
' Author : riv01
Dim CodePage As String
On Error Resume Next
With CreateObject("WScript.Shell")
CodePage = .RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage\OEMCP")
End With
On Error GoTo 0
Select Case CodePage
Case "437" 'United States
MsgBox "Codepage for United States", vbInformation, "Codepage 437"
Case "708" 'Arabic (ASMO 708)
MsgBox "Codepage for Arabic (ASMO 708)", vbInformation, "Codepage 708"
Case "720" 'Arabic (Transparent ASMO)
MsgBox "Codepage for Arabic (Transparent ASMO)", vbInformation, "Codepage 720"
Case "737" 'Greek (formerly 437G)
MsgBox "Codepage for Greek (formerly 437G)", vbInformation, "Codepage 737"
Case "775" 'Baltic
MsgBox "Codepage for Baltic", vbInformation, "Codepage 775"
Case "850" 'Multilingual (Latin I)
MsgBox "Codepage for Multilingual (Latin I)", vbInformation, "Codepage 850"
Case "852" 'Slavic (Latin II)
MsgBox "Codepage for Slavic (Latin II)", vbInformation, "Codepage 852"
Case "855" 'Cyrillic
MsgBox "Codepage for Cyrillic", vbInformation, "Codepage 855"
Case "857" 'Turkish
MsgBox "Codepage for Turkish", vbInformation, "Codepage 857"
Case "860" 'Portuguese
MsgBox "Codepage for Portuguese", vbInformation, "Codepage 860"
Case "861" 'Icelandic
MsgBox "Codepage for Icelandic", vbInformation, "Codepage 861"
Case "862" 'Hebrew
MsgBox "Codepage for Hebrew", vbInformation, "Codepage 862"
Case "863" 'Canadian-French
MsgBox "Codepage for Canadian-French", vbInformation, "Codepage 863"
Case "864" 'Arabic
MsgBox "Codepage for Arabic", vbInformation, "Codepage 864"
Case "865" 'Nordic
MsgBox "Codepage for Nordic", vbInformation, "Codepage 865"
Case "866" 'Russian
MsgBox "Codepage for Russian", vbInformation, "Codepage 866"
Case "869" 'Modern Greek
MsgBox "Codepage for Modern Greek", vbInformation, "Codepage 869"
Case "874" 'Thai
MsgBox "Codepage for Thai", vbInformation, "Codepage 874"
Case "932" 'ShiftJIS - Japan
MsgBox "Codepage for ShiftJIS - Japan", vbInformation, "Codepage 932"
Case "936" 'GBK - Chinese (PRC, Singapore)
MsgBox "Codepage for GBK - Chinese (PRC, Singapore)", vbInformation, "Codepage 936"
Case "949" 'Korean Unified Hangul
MsgBox "Codepage for Korean Unified Hangul", vbInformation, "Codepage 949"
Case "950" 'Big5 Extended - Chinese (Taiwan, Hong Kong SAR)
MsgBox "Codepage for Big5 Extended - Chinese (Taiwan, Hong Kong SAR) ", vbInformation, "Codepage 950"
Case Else
MsgBox "Unkown Codepage: " & CodePage, vbInformation
End Select
End SubDon’t have an account yet? Register yourself now and be a part of our community!
