Attribute VB_Name = "modMaschine"
'aktuelle Spracheinstellung bestimmen
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

'Bedienersprache
Public Function GetLanguageId() As Long
    Dim strLanguage As String
    Dim lngLanguage As Long
    strLanguage = Space(4)
    Call GetLocaleInfo(0, 1, strLanguage, Len(strLanguage))
    If (IsNumeric("&H" & strLanguage)) Then
        lngLanguage = CLng("&H" & strLanguage)
        If (lngLanguage = 1031 Or _
            lngLanguage = 2055 Or _
            lngLanguage = 3079 Or _
            lngLanguage = 4103 Or _
            lngLanguage = 5127) Then
            GetLanguageId = 1000
        Else
            GetLanguageId = 2000
        End If
    Else
        GetLanguageId = 2000
    End If
End Function