Private Const KL_NAMELENGTH As Long = 9
Private Const KLF_ACTIVATE  As Long = &H1

Public Const LOCALE_LANG_EN_US As String = "00000409"
Public Const LOCALE_LANG_RU As String = "00000419"

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Public Function GetKeyboardLayout() As String

    On Error Resume Next
    
    Dim strLocId As String

    strLocId = String(KL_NAMELENGTH, 0)
    GetKeyboardLayoutName strLocId
    
    GetKeyboardLayout = Left(strLocId, Len(strLocId) - 1)
    
End Function

Public Function SetKeyboardLayout(strLocaleId As String) As Boolean
    
    On Error Resume Next
    
    Dim strLocId As String

    strLocId = String(KL_NAMELENGTH, 0)
    GetKeyboardLayoutName strLocId

    If strLocId = (strLocaleId & Chr(0)) Then
      SetKeyboardLayout = True
    Else
        strLocId = String(KL_NAMELENGTH, 0)
        strLocId = LoadKeyboardLayout((strLocaleId & Chr(0)), KLF_ACTIVATE)
        If IsNull(strLocId) Then
            SetKeyboardLayout = False
        Else
            strLocId = String(KL_NAMELENGTH, 0)
            GetKeyboardLayoutName strLocId
            If strLocId = (strLocaleId & Chr(0)) Then
                SetKeyboardLayout = True
            Else
                SetKeyboardLayout = False
            End If
        End If
    End If
    
End Function