Controler format textbox

Private Sub TextBox1_Change()
'1028E123
Dim nbCar As Long, caractereSaisi As String, mauvaiseSaisie As Boolean

    'récupérer la longueur du texte saisi
    nbCar = Len(TextBox1.Text)
    
    'si la TextBox est vide, quitter la procédure
    If nbCar = 0 Then Exit Sub
    
    'récupérer le dernier caractère saisi dans la TextBox
    caractereSaisi = Mid(TextBox1.Text, nbCar, 1)
    
    'si il y a moins de 5 caractères et que le dernier caractère n'est pas numérique
    If nbCar < 5 And Not IsNumeric(caractereSaisi) Then
        mauvaiseSaisie = True
    
    'sinon, si il y a 5 caractères
    ElseIf nbCar = 5 Then
        'si le dernier caractaire saisi est une lettre minuscule
        If Asc(caractereSaisi) >= 97 And Asc(caractereSaisi) <= 122 Then
            'le mettre en majuscule et quitter la procédure
            TextBox1.Text = Left(TextBox1.Text, 4) & UCase(caractereSaisi)
            Exit Sub
            
        'sinon, si le dernier caractère n'est pas une lettre majuscule
        ElseIf Asc(caractereSaisi) > 90 Or Asc(caractereSaisi) < 65 Then
            mauvaiseSaisie = True
        End If
    
    'sinon, si il y a plus de 5 caractères et que le dernier n'est pas numérique
    ElseIf nbCar > 5 And Not IsNumeric(caractereSaisi) Then
        mauvaiseSaisie = True
    End If
    
    'si il y a eu une mauvaise saisie ou plus de 8 caractères, enlever le dernier caractère saisi
    If mauvaiseSaisie Or nbCar > 8 Then TextBox1.Text = Mid(TextBox1.Text, 1, nbCar - 1)
    
End Sub

Private Sub TextBox1_Change()
If Len(TextBox1) < 5 Then
  On Error Resume Next
  x = CInt(TextBox1)
  If Err.Number <> 0 Then
    TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    Exit Sub
  End If
  On Error GoTo 0
Else
  If Len(TextBox1) = 5 Then
    If Asc(Right(TextBox1, 1)) < 65 Or Asc(Right(TextBox1, 1)) > 90 Then
       TextBox1 = Left(TextBox1, 4)
    End If
  Else
    If Len(TextBox1) = 8 Then
     SendKeys "{ENTER}"
    Else
    On Error Resume Next
      x = CInt(Mid(TextBox1, 6))
      If Err.Number <> 0 Then
         TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
         Exit Sub
      End If
    On Error GoTo 0
    End If
  End If
End If
End Sub

Private Sub TextBox1_Change()
Dim pattern As String
    
    'si la TextBox est vide, quitter la procédure
    If TextBox1.Text = "" Then Exit Sub
    
    'générer le "pattern" en fonction de la longeur du texte saisi dans la TextBox
    pattern = Mid("#######", 1, IIf(Len(TextBox1.Text) > 4, Len(TextBox1.Text) + 4, Len(TextBox1.Text)))
    
    'si le texte saisi dans la TextBox ne correspond pas au "pattern", enlever le dernier caractère saisi
    If Not TextBox1.Text Like pattern Then TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
    
End Sub