مشكلة في البحث وأظهار النتائج في listbox

هناك مشكلة تظهر عند تنفيذ الكود التالي عند الاسطر بين الاقواس ...ارجو الافادة من لديه الاجابه لا يقصر بارك الله بكم جميع
Private Sub TextBox15_Change()
ListBox1.Clear

   For i = 1 To 14
           Controls("TextBox" & i).Text = ""
   Next i

   If TextBox15 = "" Then Exit Sub
   Sheets(3).Activate

   ss = Sheets(3).Cells(Rows.Count, 2).End(xlUp).Row
    k = 0
    For Each c In Range("c2:c" & ss)
   ' b = InStr(c, TextBox15)
   
   If c Like TextBox15 & "*" Then
     k = ListBox1.ListCount
       ListBox1.AddItem
     ListBox1.List(k, 0) = Cells(c.Row, 2).Value
       ListBox1.List(k, 1) = Cells(c.Row, 3).Value
       ListBox1.List(k, 2) = Cells(c.Row, 4).Value
       ListBox1.List(k, 3) = Cells(c.Row, 5).Value
       ListBox1.List(k, 4) = Cells(c.Row, 6).Value
       ListBox1.List(k, 5) = Cells(c.Row, 7).Value
       ListBox1.List(k, 6) = Cells(c.Row, .Value
       ListBox1.List(k, 7) = Cells(c.Row, 9).Value
       ListBox1.List(k, = Cells(c.Row, 10).Value
       ListBox1.List(k, 9) = Cells(c.Row, 11).Value]
     [(((((( ListBox1.List(k, 10) = Cells(c.Row, 12).Value
      ListBox1.List(k, 11) = Cells(c.Row, 13).Value
      ' ListBox1.List(k, 12) = Cells(c.Row, 14).Value
       'ListBox1.List(k, 13) = Cells(c.Row, 14).Value)))))
 
       k = k + 1
   End If
Next c

لابد من رفع الملف نفسه

حمل الملف التالى

الملف

شكرا