Access - Problema con IsAppOpen

Un amigo me dio este codigo para maximizar la calculadora y si esta cerrada abrirla pero dme da un error alguien me puede decir que estoy poniendo mal o si le falta algo?
me da este error al presionar la tecla



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

IsAppOpen

End Function

If KeyCode = vbKeyF8 Then

If IsAppOpen("SciCalc") Then
Exit Sub
End If

Shell "c:\windows\system32\calc.exe"

End If

End Sub

ME DA ESTE ERROR

Vamos a ver si te lo explico
vete a la página http://accessvbafaq.mvps.org/item.asp?pagina=80

copia la función que ponen allí y que empieza por

'--------------------------------------------------------- '
' IsAppOpen '
' Código escrito originalmente por Juan M Afán de Ribera.
' Estás autorizado a utilizarlo dentro de una aplicación
........
.........

No la reproduzco aqui entera porque no tengo permiso del autor, pero si para trabajar con ella

Una vez copiada pegala en un modulo que ya tengas o uno nuevo

Despues en el formulario pegas en el evento al pulsar una tecla

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF8 Then

If IsAppOpen("SciCalc") Then
exit sub
End If



Shell "c:\windows\system32\calc.exe"
End If

End Sub

jose Gracia por tu ayuda pero la verdad hago lo que me dice y no me resulta pongo la funcion antes del codigo que me enviaste en el evento al bajar una tecla y me da error
enviame a mi correo el codigo completo si se puedes: [email protected]

Jose escribeme por correo para que hablemos de neg.