Textbox Leerzeichen

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If IsNumeric(TextBox1) = False And TextBox1 <> "" Then
MsgBox " Sie dürfen nur Ziffern eingeben", _
vbCritical, "Error !!!"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
TextBox1 = ""
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub

Private Sub TextBox1_AfterUpdate()
Dim EingabeText As String
If Len(TextBox1) > 4 Then
Beep
MsgBox "        Achtung " & Chr(13) & Chr(13) & _
"Verkäufer Nr. ist 4 stellig," & Chr(13) & Chr(13) & _
"bitte NEU eingeben !!!" & Chr(13), vbCritical
TextBox1 = "0000"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("Y10") = TextBox1.Text
TextBox1 = Format(Worksheets("Kulanzblatt-VK").Range("Y10").Text, ("000"))
'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein !
Label1.Caption = ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("Y11")
End If
End Sub