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 Const HKL_NEXT As Long =  1 
Private Const HKL_PREV As Long =  0 

Sub ChangeKeyboardLayout()
    Dim lngCurrentLayout As Long
    Dim lngChangedLayout As Long
    
    ' Определяем текущую раскладку клавиатуры.
    lngCurrentLayout = GetKeyboardLayout( 0 )

    ' Переключаемся на следующую клавиатурную раскладку.
    ActivateKeyboardLayout HKL_NEXT,  0 
    
    MsgBox "Переключили."
    
    ' Определяем переключенную раскладку клавиатуры.
    lngChangedLayout = GetKeyboardLayout( 0 )
    
    ' Возвращение иходной раскладки клавиатуры.
    ActivateKeyboardLayout lngCurrentLayout,  0 
    
    MsgBox "Возвратили."
End Sub