' Pasar de un Text a otro cuando pulsamos los cursores subir y bajar.
' Seleccione la propiedad KeyPreview a True e inserte tres o más TextBox y escriba:

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 40 'Bajar
SendKeys "{tab}"
KeyCode = 0
Case 38 'Subir
SendKeys "+{tab}"
KeyCode = 0
End Select
End Sub