Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode _
    As Long, ByVal wMapType As Long) As Long
Public Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal _
    lParam As Long, ByVal lbBuffer As String, ByVal nSize As Long) As Long

Private Sub txtBody_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim dummy&
    Dim scancode&
    Dim keyname As String * 256
    ' Get the scancode
    scancode& = MapVirtualKey(KeyCode, 0)
    dummy = GetKeyNameText(scancode& * &H10000, keyname, 255)
    MsgBox keyname
    KeyCode = 0
End Sub