I've tried just about everything, but I can't get this code to work... Help Me! Please!!!!!

Const VK_ESCAPE = &H1B
Const VK_CONTROL = &H11
Const VK_SHIFT = &H10
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) Then
If GetAsyncKeyState(VK_SHIFT) Then
If GetAsyncKeyState(vbKeyEscape) Then
MsgBox "Ctrl+Shift+Esc pressed"
End If
End If
End If
End Sub

Please post instructions... Thanks