Собрать несколько блоков кода в один - VB

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

Доброго вам всем дня дорогие! подскажите направьте в нужном направлении как решить такого рода момент, собрать воедино, т.е в один блок, код, а то мне кажется раздуется мой проект как пузырь). заранее спасибо всем !

                    Листинг программы
                
 
                        
                          
                    
Public a As Byte
Public b As Byte
Public c As Byte
Public d As Byte
 
Private Sub Text1_Change()
c = Len(Text1.Text)
If c > 4 Then
MsgBox "Не соответствие символов для поля! " & Label1 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
Private Sub Text2_Change()
a = Len(Text2.Text)
If a > 10 Then
MsgBox "Не соответствие символов для поля! " & Label2 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
Private Sub Text3_Change()
b = Len(Text3.Text)
If b > 10 Then
MsgBox "Не соответствие символов для поля! " & Label3 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
 
Private Sub Text9_Change()
d = Len(Text9.Text)
If d > 14 Then
MsgBox "Не соответствие символов для поля! " & Label9 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
 
.........ну и так далее

Решение задачи: «Собрать несколько блоков кода в один»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 
Private Sub Text1_Change(Index As Integer)
    Dim n As Integer, m As Integer
    n = Len(Text1(Index))
    Select Case Index
        Case 3, 4: m = 4  ' в 3 и 4-м текстбоксе максимальное количество символов = 4
        Case 1, 2: m = 10 ' в 1 и 2-м текстбоксе максимальное количество символов = 10
        Case 0: m = 14    ' в 0-м текстбоксе максимальное количество символов = 14
    End Select
    If n > m Then MsgBox "Не соответствие символов для поля! " & Label1(Index).Caption & "", vbInformation, "СООБЩЕНИЕ!"
End Sub