Hocam budur, eline sağlık
daha iyisini bulana kadar en iyisi bu
İlgine tşk ederim

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
' uygun kodlar
MsgBox "Sayın Okileturc sanırım bu daha fonksiyonel"
Case vbKeyF3
' f3 e göre işlem
Case vbKeyF4
' f4 e göre işlem
Case Else
End Select
End Sub

Hocam özür dilerim
Cevap yazdığınızı siz uyarınca gördüm

Hem de çok güzel çalıştı -

Ben yukarıda verdiğiniz kodu " ilk alanın key down" ına
koydum ( yoksa diğer alanlarda da enter a cevap veriyor,
isteyen olabilir ama benim için ilk enter da kayıt etmesi
yeterliydi )

İlginize tşk