Makro fehler ?

Private Sub TextBox1_Change()
   Dim lz1&, FI$, Spa&, rFind, x&
   
   'LastZell in Spalte B
   lz1 = Cells(Rows.Count, "B").End(xlUp).Row
   FI = ActiveSheet.TextBox1.Text
   Spa = 3  '1. Spalte zum Filtern
   
   If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
   
   With Range("b2:L" & lz1)
such: Set rFind = Columns(Spa).Find(What:=FI, After:=Cells(1, Spa), LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
      If rFind Is Nothing Then
         Spa = Spa + 2
         If Spa > 10 Then
            ActiveSheet.TextBox1 = ""
              ''''  MsgBox "Suchbegriff nicht vorhanden!", vbCritical, "Fehler!"
            Exit Sub
         End If
         GoTo such
      End If
      If FI = "" Then
            ''''MsgBox "Kein Suchbegriff vorhanden!", vbCritical, "Fehler!"
         Else
            .AutoFilter Field:=Spa - 1, Criteria1:=FI & "*"
      End If
   End With
End Sub