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