Timer error? Har brug for hjælp.

Jeg ville meget gerne lave en telefonbog i et Excelark, hvor det er muligt at søge via filtre ved bare udenvidere at skrive på tastaturet. Dette ville jeg i Java eller eller C++ lave med keylisteners. I Visual Basic har jeg læst mig til at det kan lade sig gøre ved at oprette en timer og så kalde en rutine der lytter efter keypresses.
Har kigget lidt på denne kode:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub auto_open()
    Application.OnKey "{F12}", "Form_Load"
End Sub
Private Sub Form_Load()
  Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Dim i, KeyResult As Integer
  For i = 0 To 255
  KeyResult = GetAsyncKeyState(i)
    If KeyResult = -32767 Then
      If i = 122 Then
        MsgBox "F11"
      End If
    End If
  Next i
End Sub

Nu når jeg prøver at starte timeren får jeg en Object requiered error, er der nogen der kan hjælpe!! :o(
På forhånd tak.