Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Public Const KLF_ACTIVATE =  1 
Public Const KLF_SUBSTITUTE_OK =  1 

Public Sub SetLanguage(ByVal s As String)
  Select Case UCase(Left(s,  1 ))
     Case "R":  LoadKeyboardLayout "00000419", KLF_SUBSTITUTE_OK
'    Case "U":  LoadKeyboardLayout "00000422", KLF_SUBSTITUTE_OK
'    Case Else
  End Select
End Sub

Private Sub Command1_Click()
On Error GoTo err1
   SetLanguage ("R")
   SetLayout kbrdRussian
   Exit Sub
err1:
    MsgBox Err.Description
End Sub