عوض کردن جای دکمه Tab با Enter

سلام
می خوام جای دکمه ی Tab رو با Enter داخل برنامم عوض کنم. یعنی Tab کار ثبت و ذخیره رو انجام بده و Enter کار جابجایی رو.
ممنون می شم اگر راهنمایی کنید

با سلام

کد:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = vbKeyTab
If KeyAscii = vbKeyTab Then
MsgBox "ente key = tab"
End If
End If
If KeyAscii = vbKeyTab Then
KeyAscii = vbKeyReturn
End If
End Sub

---