Language problem with GetAsyncKeyState API function

[Pitaridis Aristotelis]

Hi,

I used the GetAsyncKeyStat e API function
Private Declare Function GetAsyncKeyStat e Lib "user32"
(ByVal vKey As Integer) As Short

in order to check the state of a key I use the code below

' check for letter a
keyPressed = GetAsyncKeyStat e(65)
If keyPressed = -32767 Then
addKey = vbCrLf
GoTo KeyFound
End If

My problem is that I have to know if the key that pressed is the English a
or the Greek a in order to do different things.

Does anyone knows how to solve this problem?

Thanks in Advance