Option Explicit
 
Private mbKeyA As Boolean
Private mbKeyX As Boolean
Private mbKeyE As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 65 Then
    mbKeyA = True
  ElseIf KeyCode = 88 Then
    mbKeyX = True
  ElseIf KeyCode = 69 Then
    mbKeyE = True
  End If
  If mbKeyA And mbKeyX And mbKeyE Then
    Debug.Print "Supertoll!"
  End If
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 65 Then
    mbKeyA = False
  ElseIf KeyCode = 88 Then
    mbKeyX = False
  ElseIf KeyCode = 69 Then
    mbKeyE = False
  End If
End Sub