Autofilter für Ziffernkette

Private Sub TxtArtikelname_Change()
If BackOffice.TxtArtikelname = emtpy Then
BackOffice.ListBoxArtikelstamm.Clear
Exit Sub
End If
Dim last As Long
last = Worksheets("WW").Range("A999999").End(xlUp).Row
With BackOffice
.ListBoxArtikelstamm.Visible = False
.TxtArtikelnummer.Value = ""
.TxtPLU.Value = ""
.ListBoxArtikelstamm.Clear
Worksheets("WW").Range("A1:F" & last).AutoFilter
Dim word As String
word = "*" & .TxtArtikelname.Text & "*"
Worksheets("WW").Range("A1:F" & last).AutoFilter Field:=4, Criteria1:=word
Dim last2 As Long
last2 = Worksheets("WW").Range("A99999").End(xlUp).Row
Worksheets("WW").Range("A1:F" & last2).Copy Destination:=Worksheets("AF").Range("A1" _
_
)
Dim last3 As Long
last3 = Worksheets("AF").Range("A9999").End(xlUp).Row
Dim lngz As Long
For i = 2 To last3
.ListBoxArtikelstamm.AddItem (Worksheets("AF").Range("A" & i).Value)
.ListBoxArtikelstamm.Column(1, lngz) = Worksheets("AF").Range("B" & i).Value
.ListBoxArtikelstamm.Column(2, lngz) = Worksheets("AF").Range("D" & i).Value
.ListBoxArtikelstamm.Column(3, lngz) = Worksheets("AF").Range("E" & i).Value
.ListBoxArtikelstamm.Column(4, lngz) = Worksheets("AF").Range("F" & i).Value
lngz = lngz + 1
Next i
.ListBoxArtikelstamm.Visible = True
Worksheets("WW").Range("A1:F" & last).AutoFilter
Worksheets("AF").Cells.Clear
End With
End Sub