XL 2016 Interdire nombre commençant par 0 (zéro) dans une Textbox

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = 0 And TextBox1 = "" Then KeyAscii = 0
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = 0 And Not TextBox1 Like "*[1-9]*" Then KeyAscii = 0
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextNum KeyAscii
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextNum KeyAscii
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextNum KeyAscii
End Sub

'une seule sub pour les trois
Sub TextNum(KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[!1-9]" Or Len(ActiveControl.Value) >= 7 Then KeyAscii = 0
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextNum KeyAscii
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextNum KeyAscii
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextNum KeyAscii
End Sub

'une seule sub pour les trois
Sub TextNum(KeyAscii As MSForms.ReturnInteger)

If Chr(KeyAscii) Like "[!1-9]" Or Len(ActiveControl.Value) >= 7 Then KeyAscii = 0

With ActiveControl

Set cel = Range("List_User").Find(.Text & Chr(KeyAscii), lookat:=xlPart)

If cel Is Nothing Then KeyAscii = 0: .Value = ""

End With

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
    Case 49 To 57: keyascii = KeyCode + 48' de 1 à 9  haut du clavier
    Case 97 To 105: ' de 1 à 9  pavé numerique
    Case 17: KeyCode = 0 'touche control bloquée
    Case Else: KeyCode = 0 ' et toute les autres bloquées
    End Select
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox_KeyDown KeyCode, Shift
End Sub

 Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    Dim chaineclip As String

    Select Case KeyCode

    Case 49 To 57: KeyCode = KeyCode + 48    ' de 1 à 9  haut du clavier
    
    Case 97 To 105    'juste pour garder le pavé
    
    Case 86    ' touche "V"
        If Shift = 2 Then    'si touche control appuyée
            Dim objdata As New DataObject
            With objdata
                .GetFromClipboard: chaineclip = .GetText
                If chaineclip Like "*[a-z|0]*" Then
                    .SetText "": chaineclip = "": 
                Else
                    TextBox1.Value = chaineclip: .SetText "": 
                End If
            End With
        End If
    KeyCode = 0
    Case 8:    'juste pour garder la touche back dispo
    
    Case 46:    'juste pour garder la touche suppr dispo
    
    Case Else: KeyCode = 0    '  toute les autres touches bloquées
    End Select
End Sub