need to exit app when the space bar is pressed

Because the parameters are Integers, not Strings. Try this:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' If Shift key pressed...
If Shift And vbShiftMask Then
' ...and Spacebar pressed
If KeyCode = vbKeySpace Then
' End app
Unload Me
End If
End If
End Sub

Set the Form's KeyPreview property to True.

plz help i need this asap

i found it

here's the code

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
Dim l As Long
l = GetAsyncKeyState(32) 'ascii code for space
If l <> 0 Then
SendKeys "CAT"
End If
End Sub

you can set the interval of the timer to the time u wish to check for keystrokes