Textbox Ile Listbox Da Süzme

[VURANOĞLU]

Merhaba
Textbox 1 (adı ) evrak arama - süzme işlemi yaparken
Listbox daki sütun başlıkları siliniyor.
Nasıl bir düzeltme yapmalıyım?
İlgilenen arkadaşlara şimdiden teşekkürler.


Private Sub TextBox1_Change()
If tiklandimi = True Then GoTo 10
Dim i As Long, sat As Long, deg As String, X As Long
TextBox1 = StrConv(TextBox1, vbUpperCase)
sat = Sheets("veri").Cells(Rows.Count, "A").End(xlUp).Row
EVRAKARAMA.RowSource = "": TextBox2 = ""
txtbx = UCase(Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I"))
X = 0
For i = 2 To sat
deg = UCase(Replace(Replace(Sheets("veri").Cells(i, "c").Value, "i", "İ"), "ı", "I"))
If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like "*" & txtbx & "*" Then
EVRAKARAMA.AddItem

EVRAKARAMA.List(X, 0) = Sheets("VERİ").Cells(i, "A").Value
EVRAKARAMA.List(X, 1) = Sheets("VERİ").Cells(i, "B").Value
EVRAKARAMA.List(X, 2) = Sheets("VERİ").Cells(i, "C").Value
EVRAKARAMA.List(X, 3) = Sheets("VERİ").Cells(i, "D").Value
EVRAKARAMA.List(X, 4) = Sheets("VERİ").Cells(i, "E").Value
EVRAKARAMA.List(X, 5) = Sheets("VERİ").Cells(i, "F").Value
EVRAKARAMA.List(X, 6) = Sheets("VERİ").Cells(i, "G").Value
EVRAKARAMA.List(X, 7) = Sheets("VERİ").Cells(i, "H").Value
EVRAKARAMA.List(X, 8) = Sheets("VERİ").Cells(i, "I").Value
X = X + 1
End If
Next
10
End Sub

Dosya eklemeye çalışıyorum ama yükleme başarısız oluyor.
Zip-rar xlsm bunlar yüklenemedi.