فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox

Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Value = ListBox1.List(i, 0)
TextBox2.Text = ListBox1.List(i, 1)
TextBox3.Text = ListBox1.List(i, 2)
TextBox4.Text = ListBox1.List(i, 3)
TextBox5.Text = ListBox1.List(i, 4)

End If
Next i
End Sub

Private Sub TextBox6_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
Sheets(1).Activate
ListBox1.Clear
ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("B6:B" & ss)
B = InStr(c, TextBox6)
If B > 0 Then
ListBox1.AddItem
 ListBox1.List(k, 0) = Cells(c.Row, 2).Value
  ListBox1.List(k, 1) = Cells(c.Row, 1).Value
   ListBox1.List(k, 2) = Cells(c.Row, 3).Value
    ListBox1.List(k, 3) = Cells(c.Row, 4).Value
     ListBox1.List(k, 4) = Cells(c.Row, 5).Value
   k = k + 1
End If
Next c
End Sub