VBA 关于textbox和listbox清空的问题，请教大佬

请教大佬，写了一个程序实现在sheet中查一个数据，查到后用listbox联想显示出来，用listbox的click事件完成选择，然后当我删除textbox1的信息重新输入第二次时，listbox还会保留上次的列表，思考了很久一直没找到合适的方法清空listbox，请大佬帮忙看看要怎么写，感谢！
Private Sub TextBox1_Change()
Dim i As Integer
Dim m_end As Integer
Dim k As Integer
If Len(Me.TextBox1.Value) >= 1 Then
Me.ListBox2.Clear
End If
k_end = Sheet4.Range("c65535").End(xlUp).Row
For k = 2 To k_end
If InStr(Sheet4.Range("a" & k), Me.TextBox1.Value) > 0 Then
Me.ListBox2.AddItem Sheet4.Range("a" & k)
End If
Next
If Me.ListBox2.ListCount > 0 Then
Me.ListBox2.Visible = True
Else: Me.ListBox2.Visible = False
End If