'добавляем библиотеку для определения раскладки клавиатуры
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Sub CommandButton1_Click()

'раскладка клавиатуры: http://www.sql.ru/forum/actualthread.aspx?tid=852792
Dim KeybLayoutName As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName

If CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr$(0)) - 1))) = 409 Then
'MsgBox$ "текущая раскладка клавиатуры - Латинница"
'условие, если текущая раскладка клавиатуры - Латинница
'тогда меняем её на противоположную
Application.Keyboard (1049)
End If

SendKeys String:="ф"
SendKeys String:=" "
If CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr$(0)) - 1))) = 409 Then MsgBox "Раскладка изменилась"

End Sub

Option Explicit

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
Private Declare Function GetForegroundWindow& Lib "user32" ()

Private Sub Timer1_Timer()

    Dim hAppWnd As Long
    Dim ThreadID As Long
    Dim ThreadLayout As Long
    Dim vbNullString As String
    hAppWnd = GetForegroundWindow()
    ThreadID = GetWindowThreadProcessId(hAppWnd, ByVal 0&)
    ThreadLayout = GetKeyboardLayout(ThreadID)
    vbNullString = Hex(ThreadLayout)

    If vbNullString = "4090409" Then
        'MsgBox$ "текущая раскладка клавиатуры - Латинница"
        'условие, если текущая раскладка клавиатуры - Латинница
        'тогда меняем её на противоположную
        Application.Keyboard (1049)
    End If

    SendKeys String:="ф"
    SendKeys String:=" "
    If vbNullString <> "4090409" Then MsgBox$ "Раскладка изменилась"

End Sub