Keyboard language

hey, i have been working on a program that allows the user to use certain features easily, but now i am stuck on changing the keyboard language via a module(if you can help me another way please do so!) I know its not much so far, but here is what i have so far~~

Private Declare Function changeKeyboardLayoutName Lib "user32" Alias "loadKeyboardLayoutA" (ByVal pwszKLID As String) As Long
Private Const KL_NAMELENGTH = 9

Public Property Set Isgreek(pwszKLID)
Dim sTemp As String
sTemp = String(KL_NAMELENGTH, 0)
Call GetKeyboardLayoutName(sTemp)
Left$(sTemp, KL_NAMELENGTH - 1) = "00000809" 'various numbers determine tha language'
End Property


~~Please help me if you can, to fix this, or at least find some other way to change the keyboard language! thanks a lot!