vba Change Keyboard Language!

[Bib195]

Dear Gurus & vba Masters,
I have a case were I wrote some code to automatically send WhatsApp messages to selected contacts. My problem is that if the Keyboard language is Arabic, WhatsApp doesn't respond properly to the send Key statement.
The Million Dollar question: { Is there a way for vba to Change the Keyboard Language from Arabic (Saudi Arabia) to English (United State) and via versa.?
I appreciate everybody's input as usual and Thank you all in Advance for the help I received for the past few weeks.
Cheers,
Ehab

 

[Bib195]

Hi,
As long as no one replied to my above question, I had to search in several places and I found what I was looking for.
Below is the solution if it might help someone else....
Thanks to everybody.
==================
Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

Private Const ar = 1025 'Arabic (Saudi Arabia) keyboard language layout
Private Const eng = 1033 'English(united states) keyboard language layout

Private Sub A_Enter()
Call ActivateKeyboardLayout(ar, 0)
End Sub

Private Sub A_Exit(Cancel As Integer)
Call ActivateKeyboardLayout(eng, 0)
End Sub
============================================