[عبدالله الصافي]

كود :

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Const KLF_ACTIVATE   As Long = &H1

هذا الكود اجعله في Module

كود :

Private Sub Txt_EnWord_GotFocus()
On Error Resume Next: Err.Clear
LoadKeyboardLayout "00000409" & Chr(0), KLF_ACTIVATE
End Sub

وهذا كما تري في حدث تنشيط خانة النص