Visual Basic - Editar textbox

Tengo el siguiente problema.
En un formulario aparecen unos 50 textbox para introducir las notas de los alumnos.
Necesitaria no tener que ir pinchando uno a uno, sino que cuando uno coja el foco seleccione el contenido (cuando se pone de azul) y que al darle Intro pase al siguiente quedando la nota original o la nueva en caso de haber modificación.

Muy amables
Gracias

Un poco mas abajo he leido algo muy parecido o igual a mi pregunta y he hecho lo siguiente.
Creo un nuevo módulo y he pegado este codigo

Public Nombre As String

Sub Revisa_Enter(formulario As Form)
If TypeOf Screen.ActiveControl Is TextBox Then ' Ver si el control Activo es un TextBox

' Sacar su numero de TabIndex
numero = Screen.ActiveControl.TabIndex


' Buscar el siguiente
For Each Control In formulario.Controls
If Control.TabIndex = numero + 1 Then
Control.SetFocus
Exit Sub
End If
Next

End If
End Sub

Aparece la variable Nombre y no se donde se va a utilizar

En el formulario llamado Meter_notas he seleccionado arriba a la izquierda Form y a la derecha el KeyPress y meto el siguiente código

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Revisa_Enter Meter_Notas ' aqui pon el nombre de tu form en lugar de form1
KeyAscii = 0
End If
End Sub

Algo hago mal porque ni se entera.. Pongo un break en el evento para ver que se dispara y ni caso.

Donde está el fallo

Ah, se me olvidaba dar las gracias

Es bastante largo de explicar pero tratare de simplificar:

En un módulo va la siguiente subrutina:

Sub SeleccionaTexto(CajaTexto As TextBox)
CajaTexto.SelStart = 0
CajaTexto.SelLength = Len(CajaTexto)
End Sub

En el GotFocus de cada caja de texto se convoca a ésta subrutina:
Ej.

Private Sub Text1_GotFocus()
SeleccionaTexto Text1
End Sub

En lugar de pasar con enter se pasa con TAB

Me pierdo..

Quieres decir que tengo que pastear lo que has escrito para que me funcione??

Hola ppg
has esto amigo te recomiendo copiar el text1(que quede asi (text1(0),text1(1) ...etc... hasta los que necesites

en el evento keypress escribe esto
===================================
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
Case 0
If KeyAscii = 13 Then Text1(1).SetFocus
Case 1
If KeyAscii = 13 Then Text1(2).SetFocus
y asi sucesivamente
End Select
End Sub
===================================