entertaste im VBA

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'verlassen von Textbox1
Dim i As Long, suchtext As Variant, lastZe As Long
Dim checker As Integer
'Application.ScreenUpdating = False
lastZe = ActiveSheet.UsedRange.Rows.Count           'letzte zeile suchen
i = 1
'checker = 0
For i = 1 To lastZe
suchtext = Cells(i, 2)
If "30100" & TextBox1.Text = suchtext Then    'wenn suchtext 30100+textbox1
Label10.Caption = Cells(i, 3)              'dann text von i und spalte C
'checker = checker + 1
End If
Next
If Einschreiben.Label10.Caption = "" Then
Einschreiben.Label10.Caption = "?"
End If
If Len(TextBox1) = 3 Then
Call entertaste
End If
'Application.ScreenUpdating = True
End Sub