Запретить ввод латиницы в поле и переключение на английский язык

'Описание: Программное переключение раскладки клавиатуры
'Автор: 'найдено в интернете'
 
Dim bArr(500) As Byte
Public Declare Function GetKeyboardLayoutName Lib "user32" _
Alias "GetKeyboardLayoutNameA" (pwszKLID As Any) As Long
Public Declare Function LoadKeyboardLayout Lib "user32" _
Alias "LoadKeyboardLayoutA" (ByVal HKL As String, _
ByVal Flags As Long) As Long
Public Function getCurrentLanguage()
Dim z As Long
z = GetKeyboardLayoutName(bArr(1))
If z = 0 Then
getCurrentLanguage = ""
Else
getCurrentLanguage = decodeString
End If
End Function
'Переключает на русский
Public Function switchToRussian()
Dim SS As String
SS = getCurrentLanguage
'Если раскладка на твоей машине переключается не между русской
'и английской, а, например, между сербской и израильской,
'то замени '419' на последние 3 цифры из getCurrentLanguage,
'вызванной при 'русской' раскладке на твоей машине
'Например, нажми Ctrl+Shift, переключись в 'русский',
'и посмотри вызов getCurrentLanguage в окне отладки
'как контрольное значение
'или сделав msgBox getCurrentLanguage
'То же самое проделай для английской раскладки
If InStr(SS, "419") = 0 Then
LoadKeyboardLayout "00000419", 1
End If
End Function
'Переключает на английский
Public Function switchToEnglish()
Dim SS As String
SS = getCurrentLanguage
If InStr(SS, "409") = 0 Then
LoadKeyboardLayout "00000409", 1
End If
End Function
Function decodeString() As String
Dim i As Integer
Dim SS As String, bb As Byte
SS = ""
For i = 1 To 500
bb = bArr(i)
If bb <> 0 Then
SS = SS & Chr(bb)
Else
decodeString = SS
Exit Function
End If
Next i
decodeString = SS
Exit Function
End Function

        '
        ' Проверка строки на наличие недопустимых символов
        '
        I_max = Len(Строка)
  
        For i = 1 To I_max
           Символ = Mid$(Строка, i, 1)
           If (Символ Like "[A-Z]") Or (Символ Like "[a-z]") Then
             ' латинский символ
             MsgBox _
                          "Внимание !" & vbCrLf & _
                          "Введенный номер содержит латинский символ '" & Символ & _
                          "' в " & CStr(i) & " позиции." & vbCrLf & _
                          "Замените его на " & _
                          "букву РУССКОГО алфавита"
 
               Exit Function
             End If
           End If
        Next i

If Not (KeyAscii >= 192 Or KeyAscii = 32 Or KeyAscii = 8) Then

Private Sub ТолькоРусский_Enter()
Me.ТолькоРусский.KeyboardLanguage = 11 'lat
Me.ТолькоРусский.KeyboardLanguage = 27 'rus
End Sub

Me.Textbox.KeyboardLanguage = 34 'Клавиатура на украинском