すみません。とあるプログラムで登録、更新、削除、検索、終了の機能を持った
ものを作っているんですが、Case文でF1で登録・F3で終了・F6で更新・F9で削除
というふうにしたつもりなのですが

Private Sub ○○_KeyDown(KeyCode As Integer, Shift As Integer)
Dim KeyAscii As Integer
KeyCode = (Case文のある関数名)(KeyAscii, KeyCode)
End Sub

Private Function (Case文のある関数名)(KeyAscii As Integer, KeyCode As Integer) As Integer
Select Case KeyAscii
Case KeyCode = vbKeyF1
(登録の関数名)
Case KeyCode = vbKeyF3
Unload Form1（終了)
Case KeyCode = vbKeyF4
(初期化の関数名)
Case KeyCode = vbKeyF6
(更新の関数名)
Case KeyCode = vbKeyF9
(削除処理の関数名)
Case KeyCode = vbKeyReturn
(検索の関数名)
End Select
End Function

でコーディングしたのですが、うまくいきません・・・。
どの部分が間違っているのでしょうか？