Как программно изменить язык ввода на русский?

Public Sub SetLanguage(ByVal S As String)
    Select Case UCase(Left(S, 1))
        Case "R"
            LoadKeyboardLayout "00000419", KLF_ACTIVATE
        Case "U"
            LoadKeyboardLayout "00000422", KLF_ACTIVATE
        Case "E"
            LoadKeyboardLayout "00000409", KLF_ACTIVATE
        Case Else
    End Select
End Sub