Listboxdaki verileri güncelleme

[domino]

aşağıdaki kodlarla listbox2 de süzme işlemi uyguluyorum fakat Textbox10 dan bir harf sildiğimde listbox2 deki veriler tekrar yüklenmiyor. Nerede hata olabilir.

Private Sub TextBox10_Change()
Dim kayitsayisi, i, a As Integer
kayitsayisi = ListBox2.ListCount
a = 1
etiket:
For i = 0 To ListBox2.ListCount - 1
''ListBox2.RemoveItem (1)
If Mid(ListBox2.List(i), 1, Len(TextBox10.Text)) <> TextBox10.Text Then
ListBox2.RemoveItem i
i = i - 1
GoTo etiket
MsgBox (a)
Else
End If
Next
End Sub

 

[mrcylmz_61]

sanırım else den sonra listbox ı tekrar doldurtmanız gerekiyor.

 

[domino]

mesela nasıl olmalı bir örnek verebilir misiniz?