Access - abrir calculadora de Windows con f8

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

If KeyCode = vbKeyF8 Then

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

End If

End Sub

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

Select Case KeyCode

Case vbKeyF1: MsgBox "PULSADO F1 ."

Case vbKeyF2: MsgBox ""PULSADO F2"

Case vbKeyF3: MsgBox "PULSADO F3."

Case vbKeyF4: MsgBox ""PULSADO F4."

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

End Select

End Sub

'---------------------------------------------------------

'

' IsAppOpen

'

' Código escrito originalmente por Juan M Afán de Ribera.

' Estás autorizado a utilizarlo dentro de una aplicación

........

.........

.........

End Function

'---------------------------------------------------------

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

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

' IsAppOpen

' Código escrito originalmente por Juan M Afán de Ribera.

End Function

If KeyCode = vbKeyF8 Then

If IsAppOpen("SciCalc") Then

exit sub

End If

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

End If

End Sub