Несколько TextBox-ов в *.txt - VB

Формулировка задачи:

Здравствуйте! Суть такова: есть 5 TextBox-ов (TextBox1-5) на форме, в каждом стоит ограничение на 5 символов. Задача в том, чтобы при вводе 5 символов курсор автоматически перескочил во второй TextBox и так далее по-порядку, чтобы заполнились все поля. Потом нужно нажать на кнопку (Command) и все содержимое TextBox-ов сохранилось в файл *.txt в одну строчку в том же порядке (1-5). Нужно для того, чтобы сохранить серийный номер лицензии в файл. Помогите плиз!

Решение задачи: «Несколько TextBox-ов в *.txt»

textual
                            Листинг программы 
                        

                            Private Sub TextBox_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error Resume Next
Dim I As Integer
I = Len(TextBox(Index))
    If I = 0 Then
        TextBox(Index - 1).SetFocus
    ElseIf I = 5 Then
        TextBox(Index + 1).SetFocus
    End If
End Sub
                        