Private isCtrlKey As Boolean
 
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyControl Then isCtrlKey = Not isCtrlKey
   If isCtrlKey And (KeyCode <> vbKeyControl) Then
      'Hier liegt nun CTRL plus die neue Taste vor
      'zur Auswertecoutine springen
      isCtrlKey = False
   End If
End Sub