XL 2016 Test nombre de caractères saisis

Private Sub TextBox1_Change()
    If Len(TextBox1) = 8 Then CommandButton1.SetFocus
End Sub

Private Sub TextBox1_setFocus()
    If CommandButton1.SetFocus Then CommandButton1.SetFocus
    CommandButton1.BackColor = &H8000000F
End Sub

Private Sub TextBox1_Change()
    If Len(TextBox1) = 8 Then CommandButton1.SetFocus
    CommandButton1.BackColor = &HC0FFC0
End Sub

Private Sub TextBox1_Change()
    With CommandButton1
        If Len(TextBox1) = 8 Then
            .SetFocus
            .BackColor = &HC0FFC0
        Else
            .BackColor = &H8000000F
        End If
    End With
End Sub