Use GetAsyncKeyState (will work for System-Wide tracking)
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    'Check if A was pressed
    If GetAsyncKeyState(vbKeyA) Then MsgBox ("'A' was pressed")
End Sub