Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Const cShiftMask =  6   'acAltMAsk+acCtrlMask
    Const CstrCombination As String = "KY"
    
    Static lngMagic As Long
          
    If Shift = cShiftMask Then
      Dim tPos As Integer
      tPos = InStr( 1 , CstrCombination, ChrW(KeyCode), vbBinaryCompare)     
    
      If tPos >  0  Then
        lngMagic = setBit(lngMagic, tPos)                

        If ((lngMagic And  6 &) =  6 &) Then
           MsgBox "Нажата комбинация Ctrl-Alt-K-Y"
           lngMagic =  0 &           
        End If

      Else
        lngMagic =  0 &
      End If
    Else
      lngMagic =  0 &
    End If
    
End Sub

Option Compare Binary
Option Explicit

Private aPower2( 0  To  31 ) As Long ' массив степеней двойки

Function setBit(ByVal lngValue As Long, iBitPos As Integer) As Long
  setBit = (lngValue Or Power2(iBitPos))
End Function

Property Get Power2(ByVal i As Integer) As Long
  If aPower2( 0 ) =  0  Then
    Call initPower
  End If
    Power2 = aPower2(i)
End Property

Private Sub initPower()
    aPower2( 0 ) = &H1&
    aPower2( 1 ) = &H2&
    aPower2( 2 ) = &H4&
    aPower2( 3 ) = &H8&
    aPower2( 4 ) = &H10&
    aPower2( 5 ) = &H20&
    aPower2( 6 ) = &H40&
    aPower2( 7 ) = &H80&
    aPower2( 8 ) = &H100&
    aPower2( 9 ) = &H200&
    aPower2( 10 ) = &H400&
    aPower2( 11 ) = &H800&
    aPower2( 12 ) = &H1000&
    aPower2( 13 ) = &H2000&
    aPower2( 14 ) = &H4000&
    aPower2( 15 ) = &H8000&
    aPower2( 16 ) = &H10000
    aPower2( 17 ) = &H20000
    aPower2( 18 ) = &H40000
    aPower2( 19 ) = &H80000
    aPower2( 20 ) = &H100000
    aPower2( 21 ) = &H200000
    aPower2( 22 ) = &H400000
    aPower2( 23 ) = &H800000
    aPower2( 24 ) = &H1000000
    aPower2( 25 ) = &H2000000
    aPower2( 26 ) = &H4000000
    aPower2( 27 ) = &H8000000
    aPower2( 28 ) = &H10000000
    aPower2( 29 ) = &H20000000
    aPower2( 30 ) = &H40000000
    aPower2( 31 ) = &H80000000
End Sub