Label1.Font.Charset = 162 'für Windows-1254 (türkische Systeme)

Option Explicit
 
Private Declare Function GetLocaleInfo Lib "kernel32" _
  Alias "GetLocaleInfoA" ( _
  ByVal Locale As Long, _
  ByVal LCType As Long, _
  ByVal lpLCData As String, _
  ByVal cchData As Long) As Long
 
Private Const LOCALE_SYSTEM_DEFAULT As Long = &H800
Private Const LOCALE_DEFAULTCODEPAGE = &HB
 
Private Function GetDefaultCodePage() As String
  Dim nResult As Long
  Dim sBuffer As String
 
  sBuffer = Space$(256)
  nResult = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, _
    LOCALE_DEFAULTCODEPAGE, sBuffer, Len(sBuffer))
 
  If nResult > 0 Then
    sBuffer = Left$(sBuffer, nResult - 1)
    GetDefaultCodePage = sBuffer
  End If
End Function
 
 
 
 
Private Sub Form_Load()
Dim sCodePage As String
sCodePage = GetDefaultCodePage()
MsgBox ("aktuelle Codapage = " & sCodePage), vbOKOnly
Unload Me
End Sub