Установить английскую раскладку клавиатуры

Public Declare Function GetKeyboardLayout Lib 'user32' (ByVal dwLayout As Long) As Long
...
Dim HKL As Long
HKL = GetKeyboardLayout(0)
If HKL = 67699721 Then
Label6.Caption = 'ENG'
Else
Label6.Caption = 'RUS'
End If

Option Explicit
 
Dim HKL As Long, N As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
 
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
 
Private Sub Command1_Click()
    HKL = GetKeyboardLayout(0)
    N = ActivateKeyboardLayout(0, 0)
End Sub

Option Explicit
 
Public Enum Layout
    engus = &H409&
    russian = &H419&
End Enum
 
Private Const KLF_SETFORPROCESS = &H100
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Layout, ByVal flags As Long) As Long
 
Private Sub Command1_Click()
    ActivateKeyboardLayout russian, KLF_SETFORPROCESS
End Sub
 
Private Sub Command2_Click()
    ActivateKeyboardLayout engus, KLF_SETFORPROCESS
End Sub