Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then 'el 13 es el codigo ascii del Enter
        Command1_Click 'aca que keres q pase si se aprieta enter
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then 'el 13 es el codigo ascii del Enter
        SendKeys "{Tab}"
    End If
End Sub