Private Sub PageUp_Click()
// Тут что-то выполняется
End Sub

Private Sub Workbook_Open()
Лист1.f1
End Sub

Sub f1()
Application.OnKey "{Up}", "Лист1.f2"
End Sub

Sub f2()
MsgBox "Привед медвед"
End Sub

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

Text2.Text = KeyCode

msg$ = ""

If Shift And  1  Then msg$ = "SHIFT+" & msg$

If Shift And  2  Then msg$ = "CTRL+" & msg$

If Shift And  4  Then msg$ = "ALT+" & msg$

If Len(msg$) >  0  Then msg$ = Left(msg$, Len(msg$) -  1 )

Text3.Text = msg$

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Text1.Text = KeyAscii

Text4.Text = Chr$(KeyAscii)

End Sub

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

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Константы VB	KeyCode	Пояснение
VbKeyBack	8	Клавиша <Backspace> (забой)
VbKeyTab	9	Клавиша <Tab> (совпадает с кодом ASCII)
VbKeyReturn	13	Клавиша <Enter>
VbKeyShift	16	Клавиша <Shift>
VbKeyControl	17	Клавиша <Ctrl>
VbKeyEscape	27	Клавиша <Esc> (совпадает с кодом ASCII)
VbKeySpace	32	Пробел (совпадает с кодом ASCII)
VbKeyPageUp	33	Клавиша <Page Up>
VbKeyPageDown	34	Клавиша <Page Down>
VbKeyEnd	35	Клавиша <End>
VbKeyHome	36	Клавиша Home
VbKeyLeft	37	Стрелка влево (¬)
VbKeyUp	38	Стрелка вверх ( )
VbKeyRight	39	Стрелка вправо (®)
VbKeyDown	40	Стрелка вниз (¯)
VbKeyInsert	45	Клавиша <Insert>
VbKeyDelete	46	Клавиша <Delete>
VbKey0 — VbKey9	48–57	Коды цифр совпадают с их ASCII-кодами
VbKeyA — VbKeyz	65–90	Коды букв совпадают с их ASCII-кодами
VbKeyF1 — VbKeyF12	112–123	Коды функциональных клавиш <F1> — <F12>