Problem mit TextBox

Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then
MsgBox "Sie müssen eine lfd. Nr. angeben!"
Exit Sub
End If
Range("G1").Value = TextBox1.Text
Dim Zelle As Range
Dim sBegriff As String
sBegriff = TextBox1.Value
If sBegriff = "" Then Exit Sub
Set Zelle = Worksheets("CD_Archiv").Columns(31) _
.Find(sBegriff, LookAt:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
'Datensatz anlegen
Dim Dia As UserForm
Dim lng As Long
Dim Treffer As Range
Dim i As Integer
Set Treffer = CD_Archiv.Columns(31).Find(What:=Me.TextBox1.Value, LookAt:=xlWhole)
If Treffer Is Nothing Then
lng = Range("A65536").End(xlUp).Offset(1, 0).Row
Else
i = MsgBox("Dieser Satz wurde bereits erfasst! Überschreiben?", vbYesNo + vbQuestion)
If i = 6 Then
lng = Treffer.Row
Else
Exit Sub
End If
End If
If CDate(TextBox28)