Que tal, a ver si esto te puede ayudar.
Private Sub Command1_Click()
"Codigo del boton
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 65 Then " PREGUNTO SI LA TECLA ES "A" MAYUSCULA
Command1_Click "EJECUTO EL CODIGO DEL BOTON
End If
End Sub