Si lo deseas :
i). A un control determinado:
Private Sub text1_KeyPress(KeyAscii As Integer)
if KeyAscii=13 then 'Se presiono el ENTER
command1.setfocus 'ubicas el foco en el comand1
endif
End Sub
ii). Al siguiente control, de acuerdo al orden del TabIndex
Private Sub text1_KeyPress(KeyAscii As Integer)
if KeyAscii=13 then 'Se presiono el ENTER
SendKeys "{Tab}"
el comand1
endif
End Sub
ii) Si deseas moverte usando las flechas, utilizadas:
En el form, la propiedad KeyPreview=TRUE
y pones lo siguiente:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown, vbKeyReturn
KeyCode = 0
SendKeys "{Tab}"
Case vbKeyUp
KeyCode = 0
SendKeys "+{Tab}"
End Select
End Sub
Espero te sirva