Public Declare Function ActivateKeyboardLayout Lib "user32" ( _
  ByVal HKL As Long, _
  ByVal flags As Long) As Long

Public Const HKL_NEXT =  1 
Public Const HKL_PREV =  0 

Public Const kb_lay_ru =  68748313 
Public Const kb_lay_en =  67699721 

Private Sub TextBox2_GotFocus()
    ' Активируем английскуй раскладку.
    ActivateKeyboardLayout kb_lay_en,  0 
    
    ' Или так. Активируем следующую.
    'ActivateKeyboardLayout HKL_NEXT, 0
End Sub

Private Sub TextBox2_LostFocus()
    ' Активируем русскую раскладку.
    ActivateKeyboardLayout kb_lay_ru,  0 
    
    ' Или так. Активируем предыдущую.
    'ActivateKeyboardLayout HKL_PREV, 0
End Sub