Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text3.SetFocusEnd Sub