Private Sub CommandButton5_Click()
Dim n As Integer

While ListBox1.ListCount > 0
ListBox1.RemoveItem (ListBox1.ListCount - 1)
Wend

n = 2
i = 0

While Cells(n, 1) <> ""
If InStr(1, Cells(n, 2), TextBox5.Value, vbTextCompare) > 0 Then
ListBox1.AddItem (Cells(n, 1))
ListBox1.List(i, 1) = Cells(n, 2)
ListBox1.List(i, 2) = Cells(n, 3)
i = i + 1
End If
n = n + 1
Wend

End Sub

Есть у нас вот такая кнопочка, отвечает за вывод списка в листбокс при выполнении условия...
что здесь обозначает вот эта часть-
While ListBox1.ListCount > 0
ListBox1.RemoveItem (ListBox1.ListCount - 1)
Wend

Огромное спасибо)