Deneyiniz;
Private Sub TextBox6_Change()
Dim sf As Worksheet
Set sf = Sheets( Sayfa1 )
ListBox1.Clear

If Trim(TextBox6.Value) = Then Exit Sub '...

Hay çok yaşayın.
Bu konuya dair hiç bir yanıt bulamamıştım. Öyle olunca gelip bakmıyordum. Bugün girdim ki bir ay olmuş yanıtınız.
İşte tam çözüm bu....

Rica ederim
İyi çalışmalar)