Scancode problem

the following code checks through scancodes for specific key hits, it should also differentiate between capitals and normal

For lettx.text_letter = Each text_letter
If KeyDown(42) = False And KeyDown(54) = False
If (KeyHit(lettx\scancode) = True And Len(lettx\symbol$) = 1)
Notify lettx\symbol$
EndIf
ElseIf KeyDown(42) = True Or KeyDown(54) = True
If (KeyHit(lettx\scancode) = True And Len(lettx\caps_symbol$) = 1)
Notify lettx\caps_symbol$
EndIf
EndIf
Next

when first running, when i press a letter i get lowercase as expected. holding down shift gets capital letters.

However, once i release the shift key i still get capitals (no caps lock isnt on).

Any suggestions?