Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal Flags As Long) As Long

Private Sub SetLayot(sTypeLayot As String)
' Если "ru" - переключить на русский, "en" - на английский
Dim r As Long, i As Integer
For i =  1  To  5 
    r = ActivateKeyboardLayout( 0 ,  0 )
    Select Case r
        Case  67699721 
            If sTypeLayot = "ru" Then Exit For
        Case  68748313 
            If sTypeLayot = "en" Then Exit For
    End Select
    i = i +  1 
Next
End Sub

Private Sub Text1_GotFocus()
SetLayot "ru"
End Sub