If Sayfaad(Me.TextBox1.Value) = True

Then yerine alttaki gibi trim ekleyin.
Türkçe olayını bilmiyorum.Ali nin birinnin sağında boşluk var.

If Sayfaad(Trim(Me.TextBox1.Value)) = True Then

---

Türkçe olayınıda alttaki gibi deneyebilirsiniz tabii harfleri düzenleyip yinede emin değilim.

TextBox1 = UCase(Replace(Replace(TextBox1.Value, "ý", "I"), "i", "Ý"))

Çok teşekkürler Hocalarım ellerinize sağlık.

Hocam ComboBox1 de hep birinci harf olarak ListBox1 de listeliyor. Cumle içinde geçen kelimeye göre sorguliyabilirmiyiz. 
Örneğin Ali Can Yılmaz Ca veya maz yazdığımız zaman da ListBoxda sıralıyabilirmiyiz.

13.mesajı okuyun yada mesajları tüm okuyun harf ile başlayan demiştiniz.

Tamam Hocam haklısınız Harf ile demiştim. Kesime ile daha mantılı olur diye düşünüyorum. Kusura bakmayın Harfle olan Kodları kelimeye çevirmek sizi uğraştıracaksa o şekilde de kalabilir. Ben zaten size yeterince zahmet verdim.

Siz yeni konu açın bence.Zor değilde zamanım yok akşama kadar.
Zaten * ekleyip arayınca oluyordu.
Yada instr kullanmak gerek bilemiyorum.Konu açın bakılır abey.

Çok teşekkürler Hocalarım ellerinize sağlık.

Konuyu taşıyabilirsiniz saygılarımla sağlıklı günler dilerim.