Mover de un Campo a otro Campo

hola, Ale !

... 4 textbox y quiero que cuando el usuario pulse la tecla TAB se desplace de un campo a otro [...]

para excel 2000 [o superior] y suponiendo que los textboxes se llaman TextBox1 ... TextBox4
las siguientes lineas cambiaran de textbox activo al siguiente =>usando la tecla {Tab}<[o... si combinas {Tab} con {Mayus} se moveran al anterior]
[si NO hay siguiente o anterior... regresa el enfoque a la seleccion actual de la hoja]
[le agregue una salida inmediata si presionas la tecla {Enter}] :))
en el modulo de codigo de la hoja que contiene a los textboxes ==Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 0 Then Me.OLEObjects("TextBox2").Activate Else SendKeys "{Esc}"
End If
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 0 Then Me.OLEObjects("TextBox3").Activate Else OLEObjects("TextBox1").Activate
End If
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 0 Then Me.OLEObjects("TextBox4").Activate Else OLEObjects("TextBox2").Activate
End If
Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 1 Then Me.OLEObjects("TextBox3").Activate Else SendKeys "{Esc}"
End If
End Sub

saludos,
hector.